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EDITORIAL INFORMATION 


Editorial 


WELCOME TO ISSUE FOUR OF PRINT-OUT |! 
We hope that you enjoy reading it !!! 


If this is your first time for buying 
Print-Out we hope you enjoy it enough 
to buy back issues and if you are now 
a ‘regular’ we hope that you continue 
to buy the magazine which ‘caters for 
all serious users of the Amstrad CPC' 
If everything goes according to plan, 
(we managed it this time !!!) we hope 
to have completed Issue Five by about 
May 30th. If you wish to order a copy 
of Issue Five in advance, please send 
one of the following :- 

a) 7Op + A4 SAE (with a 28p stamp) 

b) £1.10 (which includes ptp) 
Of course you can also order previous 
issues, further future issues or even 
have a subscription (see ‘Offers’ for 
more details). 


We would like to thank Bob Taylor for 
contributing to Print-Out and also to 
the other people who have helped with 
the production of this issue. If any— 
body would like to contribute pieces 

of writing, programs or even artwork 

we'd be most interested and grateful. 
It can be on virtually any CPC relat— 
ed matter so we look forward to hear— 
ing from you ! (see address below) 

Of course, if you've any questions or 
problems concerning the CPC please do 
not hesitate to write to us and we'll 
do our best to try and solve it. 


The address to write to is :- 
PRINT-OUT, 8 Maze Green Road, 
Bishop's Stortford, 
Herts CM23 2PJ. 
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BEGINNER'S 
BASIC 


We have now looked at printing information, inputting instructions or infor— 
mation from the user, using this ‘data' in our own calculations and also, most 
recently, repeating instructions. However, there is one very important concept 
that we have not covered and that is decision making. Very few programs except 
the simplest of them, will not contain some example of the computer having to 
make some decisions. If we take a small program, such as a game of noughts and 
crosses between two human players, it is obvious that numerous decisions will 
have to be made. Not only will the computer need to determine where a O ora X 
must go on the grid and even whether it can be placed in that position, but it 
will also have to judge who has won and lost. 

The most common decision making instruction is known as the IF...THEN...ELSE 
command. This allows the computer to compare one piece of information with anc- 
ther and IF some condition(s) are met, THEN the program will do one thing, but 
IF the conditions are not met, it will do something ELSE. Before we look at the 
command in great detail, type in and RUN the program shown below that will give 
you some idea of what the command can do. 


10 INPUT "What is your name ";name$s 

22 a$=UPPERS (names) 

3@ IF a$="ARNOLD" THEN PRINT "That’s my name!" ELSE PRINT "Hello "3; names 
4@ END 


We've already discussed line 1@ in previous issues. As a reminder, it gets you 
to type in a word (ie your name) which is stored in the variable 'name$'. Line 
20 converts whatever was in name$ into capital letters and then stores that in 
a$. So suppose you enter 'Bill' as your name in line 1@. After the execution of 
line 28, name$ would still hold Bill, but a$ would hold BILL. Line 3@, however, 
is the important line for us and it requires some careful investigation. 

What this line does is to check and see if the contents of a$ match the word 
ARNOLD, if they do it decides to print "That's my name!" and then ignores ever— 
ything upto the end of the line. If the contents of a$ don't match ARNOLD then 
the computer chooses to print whatever follows the ELSE statement ("Hello what— 
ever you entered"). Of course you can do other things as well as printing in an 
IF...THEN...ELSE command. Look at the example, on the next page, which uses the 
commands GOTO and FOR...NEXT which we looked at last time. 
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The program is :- 


1@ INPUT "Do you want me to clear the screen (yes/no) ";a% 
2@ bS=UPPERS (as) 

30 IF bS="YES" THEN CLS ELSE GOTO 50 

4@ END 

5@ FOR i=i1 TO 1000 

&@ PRINT ""; 

7@ NEXT i 

8@ END 


This program asks you to reply either 'yes' or ‘no' to its initial question. 
Line 3@ then checks to see what you typed and if you did type ‘yes' the program 
clears the screen (CLS which follows the THEN), ignores the rest of line 30 and 
executes line 4@ which ends the program. However if you typed 'no' (or anything 
other than yes), it executes the command after the ELSE instruction which sends 
it to line 5@. Lines 5@ — 8@ simply fill the screen with stars and then end the 
program. For a full explanation of these lines see Issue 3 — Beginner's Basic. 


IF...THEN...ELSE instructions are very flexible and we can use other types of 
variables in the command. For example we can say whether a variable is greater 
than or smaller than a particular number or not, whether a variable is equal to 
@ certain number or not, or even whether a variable multiplied by PI is larger 
than the logarithm of another variable or not !! We can also have more than one 
condition which needs to be met before a certain action can take place. Look at 
this program :- 


10 INPUT "Enter a number between 1 and 19 ",num 

20 IF num>i@ OR num<i THEN PRINT “Your number’s not between 1 & 10":GOTO 10 
3@ PRINT "Thank you for your number" 

4@ END 


This short program illustrates several new points. Line 10 is simple enough and 
just asks you to enter a number which is stored in the variable ‘num’. Line 20 
checks to see if ‘num' is greater than 1@ or smaller than 1. If either of these 
conditions is met then the message will be printed and the program will go back 
to line 10. Notice how the ELSE part of the statement has been ommitted & this 
is because it is an optional part -— the THEN part must always be present. 

The listing shown below just asks you for a number and then decides whether 
it is equal to one or not. It then tells you its incredible conclusion and asks 
for another number. 


10 INPUT num 
20 IF mum=1 THEN PRINT "It’s one'":GOTO 10:ELSE PRINT "It isn’t one":GOTO 10 
3@ END 
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In line 20, if the number that is stored in 'num' is 1, then everything upto the 
word ELSE will be executed. If the number in 'num' is not 1 then everything from 
the ELSE to the end of the line will be executed. In either case line 3@ will be 
executed. If we wished, we could even have the 'ELSE' part of the statement ona 
separate line except that it would not need the ELSE in front of it. Although it 
makes no difference in this example, this may not be possible with some programs. 


1@ INPUT num 

2@ IF num=i THEN PRINT "It is one":GOTO 10 
3@ PRINT "It isn’t one":GOTO 10 

4@ END 


It works for this example because line 3@ would be executed only when ‘num' did 
not equal one. This is the one of the reasons why ELSE can be omitted from this 
type of statement. At some time you may wish to test to see if something is 
different (or not equal) from something else. The way to do this is to use <>. 
Look at the example which is a revised version of an earlier listing :— 


1@ INPUT “What is your name ";name$ 

20 ab=UPPERS (names) 

30 IF aS<>"ARNOLD" THEN PRINT "Your name is different from mine!" 
4@ END 


Now the message is printed only if the name that you entered (stored in ‘name$' 
and then in ‘'a$') is different from ‘ARNOLD’. 


That concludes this issue's section on 'DECISION MAKING' in Beginner's BASIC but 
from now on, more and more of your programs in BASIC, especially as they become 
longer and of greater complexity, will involve IF...THEN...ELSE commands as this 
is the most common of the decision making commands. At the bottom of the page is 
a list of all the commands that we have looked at so far for your reference, and 
following them is the issue in which they were mentioned. 


AUTO = ISSUE 2 GOTO = ISSUE 3 RENUM - ISSUE 2 
CLS = ISSUE 1 LIST =e ISSUE 1 RUN - ISSUE 1 
EDIT ss ISSUE 1 LOWERS — ISSUE 2 THEN - ISSUE 4 
ELSE = ISSUE 4 NEW = ISSUE 2 TROFF — ISSUE 3 
FOR = ISSUE 3 NEXT 2 ISSUE 3 TRON — ISSUE 3 
if a ISSUE 4 PRINT —- ISSUE 1 UPPERS —- ISSUE 2 
INPUT —- ISSUE 2 
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MACHINE CODE 


the final installment in ‘PRINTING 
PART 4 


In Issue Three. we wrote a short program that accepted two numbers and then 
calculated and printed their total. However this routine was able to deal only 
with sums that had an answer that fell between @ and 9. In this issue. we will 
try to write a program that will print much larger numbers upto 65535 (the re- 
ason for this number is explained later). In the last part of this tutorial we 
touched on ‘conditional’ instructions and these play a major part in all mach—- 
ine code programs. The routines in this tutorial include many examples of con- 
ditional instructions and in order to understand how they work it will be ben— 
ificial if you have read the section on 'FLAGS AND CONDITIONS' first. 

Those of you who have looked at other machine code tutorials before may have 
realised that we have used only six calls to the firmware (see Issue One for an 
explanation) so far. Normally, by the fourth part of a series on machine code. 
you would have been introduced to about 25 different firmware calls! The reason 
for this is that when you understand the basics of machine code, you can apply 
your knowledge to all areas of programming. However, if you feel that you wish 
to explore machine code further by yourself, the best way of doing this is to 
disassemble some of the machine code listings in this magazine (eg. iSTEP) and 
try to work out what is happening in them. If you do not have a disassembler, 
we supply copies of all the programs in the magazine. complete with comments on 
what the program is doing, at the cost of £1, including postage and packing. 

As we have already mentioned, in this article we are going to write a short 
routine that will print any number from @ to 65535 (giving 65536 possiblilities 
in total) on the screen. The reason why only 65536 numbers can be printed using 
this method is relatively simple to explain. In the computer's memory, hundreds 
of numbers are stored and each of these numbers is called a byte and these can 
hold a number from between @ and 255, this is the largest number which can be 
represented by an 8 digit binary number (see Issue One — ‘What is my Amstrad'). 
Therefore one byte can store 256 possible numbers and when two bytes are used 
together we can store 256 x 256 (=65536) different numbers. Often two bytes are 
utilised in this way either in memory or stored in a REGISTER PAIR. 


BASIC POKER 


Next to all the routines contained in this issue (in the leftmost column) there 
are rows of numbers. These numbers should not be typed into an ASSEMBLER, but 
they are intended for use by those who do not possess one. These numbers can be 
typed into the ‘BASIC Poker' which was printed in both Issues One and Two. This 
program is included on every issue's program cassette and includes instructions 
for its correct use. 
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The listing itself contains many fairly self explanatory comments and extra 
notes on some of the trickier parts are printed after the program. However, the 
basic idea is that the program is subtracting multiples of 10 (in a decreasing 
order) from the number that is stored in HL (the number to be printed). Every 
time this happens it increases the A register by one and this acts as a counter. 
It then repeats this subtraction until HL holds a negative number and when this 
occurs the carry flag is set. The number in HL then has the multiple of 1@ ADDED 
to it in order to make it a positive number for future calculations. The number 
in A (a record of the number of times that the multiple of 10 was subtracted) is 
converted into its ASCII code by adding &3@ to it and printed. This sequence is 
now repeated with smaller and smaller multiples of 1@, until only the units are 
left and these are then printed without the need for an adjustment. 


ORG &4000 

21 39 30 LD H,12345 3 the number to print is stored in HL 

@1 10 27 LD BC, 10000 ; BC=10000 

CD 22 40 CALL prt_dig 3 Calculate and print the 10000’s digit 

@1 E8 @5 LD BC, 1000 3; BC=1000 

CD 22 40 CALL prt_dig 3 calculate and print the 1000’s digit 

@1 64 @@ LD BC,100 ; BC=100 

CD 22 40 CALL ort_dig 3 Calculate and print the 100’s digit 

@1 @A 2@ LD BC,19 3; BC=19 

CD 22 40 CALL prt_dig 3 calculate and print the 10’s digit 

7D LD A,L ; the value left is less than 1@ 

C6 32 ADD A,&30 3 add &3@ to convert this digit into one that 
$ can be printed (see note above) 

CD 3A BB CALL &BBSA 3 print the units digit 

cS RET 3 return 

»prt_dig 5 the calculating routine 
SE FF LD A,&FF 3 the digit counter =-1 (see below) 
loop 

SC INC A 3 increase the counter by 1 

ED 42 SBC HL,BC ; subtract the number that is stored in BC 
3 (ie 10000, 1000@,120,10) from the number to 
3 be printed that is in HL 

3 FB JR NC, loop 3 if HL becomes negative the carry will be set 
3 otherwise jump back to the label .loop 

Q9 ADD H_,BC 3 add the value in BC to HL, so that H will 
3; contain a positive number for future use 

C4& 3O ADD A,&3@ 3 convert the value in A to a printable digit 

CD SA BB-~ CALL &BBSA 3 and then print the digit 

C9 RET 3 return from subroutine 


When we CALL &40@@ we get 12345 printed on the screen as we would expect. Some 
of the commands used above are new and are explained on the next page. 
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Before we look at the new commands, it is worthwhile to study exactly what 
the program is doing during its execution. Below is shown a list of what really 
happens when the routine is called. 


. HL is loaded with 12345 Machine 

. BC is loaded with 10000 

. The routine ‘prt_dig' is called 

In this routine the following occurs :- 

a) A is loaded with SFF. 

b) A is increased by one. 

c) BC is subtracted from HL and the carry flag is set if BC becomes negative. 

d) As long as the carry flag is NOT set, jump to instruction 4b otherwise qo 
to instruction 4e. 

e) BC will now contain a negative number (eq. ~-7655), so add BC to HL so that 
a positive number (eg. 2345) will be produced. 

f) A will now contain the number of times BC was subtracted from HL without a 
negative number being produced (eg. 1). Add &3@ to this number in order to 
convert it into its ASCII equivalent. 

g) Print this number and then return to wherever this routine was called. 

Now load BC with 1000 and go to instruction 4. 

Then load BC with 100 and go to instruction 4. 

BC is loaded with 1@ and the routine goes to instruction 4. 

. The remainder will be less than 10, so add &30 (to convert it to its ASCII 

equivalent) to it and then print the final digit 


Code 


oft eee oe aes 


bwWN FP 


ON A U 


At one point, the notes say that A is loaded with -1, but the instruction says 
LD A.&FF, which may be a bit confusing. The reason for this is that &FF is the 
largest number that can be stored in a single register. When A is increased by 
one there is no room for the overflow and so A contains @ and the overflow is 
discarded. If you now go back the other way, if you subtract 1 from @, you get 
~1 and so it would appear that &FF equals -1. This may sound confusing to you, 
but if you think about it IS logical. 

In the routine there are several new commands. The first is SBC which is simi- 
lar to SUB except that the carry is then subtracted from the number. This will 
make some sense to you if you have looked at FLAGS. Likewise JR is another form 
of a jump and stands for JUMP RELATIVE and is used to jump small distances, but 
at the moment you can treat it in the same way as you would a normal jump. The 
NC, loop following it makes this a conditional jump (in this particular case, it 
will jump only to .loop if there is No Carry) and this is explained in the part 
on FLAGS in this issue. 

That concludes this issue's section on Machine Code and in our next issue we 
will look further at the flags and will start writing some useful routines. In 
Issue Five we hope to start of section on advanced M/C which will include many 
unusual and complicated programming techniques. 
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This article was written by Tony HOMEBREW 


Kingsmill who runs a small company 


that produces adventure games. Two (COMP A IN W 


of his programs are reviewed else— 

where in the magazine, but we felt PROFILE 

it would be interesting for others 

to see why he started a homebrew company & how. It seems that homebrew software 
is an important, and often neglected, part of the computer market & is thriving 
especially on the CPC. Although the software industry for the CPC is strong, at 
the moment, it will eventually decrease. It is then that users will turn to the 
homebrew sector to supply their games and utilities. By printing this article, 
we hope that some potential software writer may be stirred into producing their 
own games. For have no doubt, that the day of the homebrew industry will come! ! 


I am 16 years of age and still at school at Verulam. St.Albans. My first 
taste of computers was with the Atari console, way back around 1980, but didn't 
get a proper computer until about 1963. We bought an Acorn Electron, on which I 
mainly played games at first. I was about eleven when I first became interested 
in programming. I didn't really have much idea where to start and so I bought a 
book with games to type in. I found this enjoyable and quickly became familiar 
with many commands. From there I began to write My own programs in BASIC, vary— 
ing in quality but none were good enough to sell. 


(eee how old the CPC is now, I suppose I bought mine fairly late, 
around February 1988 after I felt my Electron had seen better days! I chose the 
CPC 6128 mainly because it is so versatile — it can be used for Just about any— 
thing. 16-Bit software is far more expensive and apart from a few extras it all 
does the same thing. 


I started producing adventure games For a full review of both 
towards the end of last summer. my first ‘Lords of Magic' and also 
release being ‘Lords of Magic', which is ‘Island of Chaos' look at 
available now. I did not finish the game the article on ‘HOMEBREW 
properly until December, constantly add—- SOFTWARE' — in this issue 
ing to the game until I ran out of memory . we also feature a select— 
Lords of Magic involves you being captured ion of educational progr- 
in a strange land by the Lords of Magic. & ams from Matthew Pinder. 


you must find a way to escape. My second & 
most recent release is the Island of Chaos based on the island of Brael Ti. 
The game is about an evil ruler named Baktron who takes over the island, & it 
is your mission to defeat him. Both games are £3.95 each which I feel is very 
reasonably priced compared to what most professional companies charge and when 
you. consider the price of the blank disks, you're left with very little profit. 
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Tooras of Magic and Island of Chaos were both programmed with Gilsoft's 
Quill Adventure Writing System. The system gives you (excluding graphics) about 
30k to use. I found this was enough for Island of Chaos but I almost ran out of 
bytes with Lords of Magic. Considering it's age, the Quill is very good, allow-— 
ing games to run reasonably fast, and of course, merge graphics designed on the 
Illustrator, Gilsoft's graphic designer for the Quill. The major set back with 
the Quill is probably the parser — limited to understanding two words per sent- 
ence. Nevertheless, I manage to get round this by using lots of small commands 
rather than one larger one. For instance, instead of 'GET CANDLE AND LIGHT IT', 
I would have to use 'GET CANDLE’ then 'LIGHT CANDLE' as two separate sentences. 


Toccreing ahead, I will probably update to a system like the Professional 
Adventure Writer (PAW), Gilsoft's more powerful system. This will enable me to 
produce games with a better parser. At the moment I'm just producing adventures 
and cannot see any reason to update to a more powerful computer or change the 
style of games. 


So is a lot of life in the CPC's yet, especially with the new models 
arriving later in the year. With most major companies like Level 9 switching to 
more arcade style 16 Bit games. more people will turn to homebrew companies for 
new adventures, and most of them are cheaper tao. 


A. for the near future, I hope to continue releasing adventures though—- 
out the year. My next game will probably have less of a magical fantasy element, 
possibly even futuristic. I also have plans for a sequel to Island of Chaos, but 
that will depend on how successful Island of Chaos is. 


If you run a small company that produces anything (games, hardware, 
programs, etc.) for the Amstrad range then we would be delighted to 
hear from you. Not only would we give your product a full review in 
Print-Out, but we would also like to write a company profile on you 


because we believe that Homebrew programs & small companies will be 
the future of the CPC. If you are interested in having your product 
reviewed or in writing an article on your company then please write 
to us at the address which is printed at the front of the magazine. 


il 
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BITS AND PIECES 


DATA 3E,02,CD, E, BC, 21,5£,40 
DATA 4E, 79, FE, 20,C8, 23,56,E5 
DATA 6, 18, 3E, 19, 90,CD, 72, BB 
DATA 7A,CD,4F, BB, 3E,01,CD,90 
DATA BB, 79,CD, 5A, BB, 20, 22, 20 
DATA 20, 00,20, 20, 00, 20,20, 20 
DATA @0,3E, 19, 90,CD, 72, BB, 7A 
DATA CD, 6F, BB, 3E,00,CD, 92, BB 
DATA 79,CD, 54, BB, 1@,CC,3E, 19 
DATA CD, 72, BB, 7A,CD, 6F, BB, 3E 


DATA @1,CD,9@, BB, 79,CD, 54, BB 
DATA £1,23,C3,08,40,C9,00,00 
DATA end 

add=&4000 

READ a$:IF a$="end" THEN GOTO 19a 
POKE add, VAL ("&"+a$) :add=add+i 
GOTO 160 

add=&4@3E 


BITS 


PROGRAMMING 


ANU 
PIEGES 


Listed on this page is a pro- 
gram that provides you with a 
rather unusual means of disp-— 
laying any message of upto 8@ 
characters. The actual print-— 
ing section of the program is 
written in M/Code but a BASIC 
‘driver' pokes the message in 
to the relevant places in the 
computer's memory. Therefore, 
by altering lines 245 onwards 
you can change the pattern in 
which the letters fall on the 
screen. If you wish the lett— 
ers to fall more slowly, just 
change line 6@ to read :— 
DATA CD,19,BD,CD,19, BD, 20, 20 


PRINT "Please enter the string you wish to be printed of no more than 


80 letters :-” 
LINE INPUT as 
IF LEN(a%) >80 THEN GOTO 200 


IF LEN(a$)<80 THEN a$=a$+" ":GOTO 230 


DIM d(8@,2) 

FOR i=1 TO 8&@ 
b$=LEFTS$ (a, 1) 
c=AST (b$) sd(i,l)=c 
d(i,2)=i 
a$=RIGHTS (as, GO-i) 

NEXT i 

FOR j=@ TO 4 

FOR i=1+j TO 40+j STEP S 


Linechecker 


A PROGRAM TYPING AID 
for use with PRINT-OUT 


POKE add, d(8@-i,1):add=addt1:POKE add, d(80-i,2) :add=addtl 
POKE add,d(i,1):add=add+1:PQKE add,d(i,2) sadd=add+1 


NEXT i 
NEXT 3 
POKE add,@ 
CALL &4000 


SEABATTLE PROGRAM 


by 
S. MESSINA 


This program was written by S. Messina from Heywood in Lancashire and was 
his entry for the Maxam competition that we ran in Issue Two of our magazine. 
This program earned him first place and a copy of Maxam from Arnor on tape. 

The program is like a computerised 'Battleships' for your CPC. However, it 
also features some excellent graphics and sound effects. When you have selected 
the position you wish to bomb (in a5 x 5 grid), you can see the missiles being 
launched and if they hit the target, the ship explodes and sinks into the sea. 
However, although the program is very good, it is quite long and you may feel 
that it would be advantageous to buy the program cassette/disc which contains 
this and all the other programs in the magazine. 

When you have finished typing in the program and you run it, you are asked 
for both players' names. Player Two is then asked to leave the room while Play— 
er One positions his ships in the grid. Each position is identified by a two 
character coordinate which should be entered in lower-case in the form ‘letter 
then number' (eg. al or d4). When Player One has positioned five targets, he is 
asked to leave the room whilst Player Two enters his coordinates. When this is 
done, the players take it in turns to try and locate the others ships by enter— 
ing coordinates in the same manner as before. A grid is shown to remind players 
where they have already tried — a dot means a hit & a cross means a miss. The 
game ends when one of the players has hit all five of the opposition's ships & 
you are then given the opportunity to play again. 

To aid typing in, we have printed Linechecker numbers (see Issue Three for a 
full explanation) and we wish you good luck in the game. 


PROGRAM 


CCB] 10 SYMBOL AFTER 2546:MEMORY 40959:SYMBOL AFTER 236: add=40960:PEN 10:GOSUB 1830:GOSUB 


1810 
[D3] 20 WINDOW 3,18,8,25 
[4A] 3@ ORIGIN 0,0,0,640,400,0:CLG @:LOCATE 4,4:PRINT"PLAYER(1)"s:LOCATE 5,7: INPUT " ",£%: 


#$=UPPERS (£3) CLS 
[64] 40 LOCATE 4,4:PRINT"PLAYER(2)"s:LOCATE 5,7: INPUT" ", q%: q$=UPPERS (q%) :CLS 
[00] 35@ LOCATE 7,4:PRINT ag$:LOCATE 2,7:PRINT" Please leave":FOR a=1 TO 82@:NEXT:CLS 
COD] 6@ LOCATE 7,4:PRINT #$:LOCATE 2,7:PRINT"Press any key':k$=INKEYS: IF k#="" THEN 62: 
ELSE CLS#2:FOR a=@ TO 15: INK a,@:NEXT:GOSUB 730:GOSUB 720 
CEA] 70 FOR p=8A9EC TO &ASFF:POKE p,&@:NEXT 
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SEABATTLE 


PROGRAM 


[CE] 80 LOCATE 9,4:PRINT f#:LOCATE 4,9:PEN 10:PRINT"Choose 5 target's :WINDOWH4, 12,16, 19, 
19: PAPERH4, O: PEN#4, 10:CLS#4 


{Bij 
(C4) 


CB7) 
COA] 
CFDI 
CD82] 
CE2] 
C(F4) 
C2D] 
CA6I 
C99] 
9D) 
C90] 
C32) 
COS] 
CCF] 
[D7] 


C7F] 


C90} 


C353 


[20] 


C20) 


[94] 


C72] 


C7E] 


CBA] 


90 INPUT#4," ',c#:GOSUB 1780:IF ic=O THEN GOTO 90:ELSE GOSUB 870:GOSUB 1190 

100 INPUT#4," ",c#:GOSUB 290: IF ok=1 THEN GOTO 100:ELSE GOSUB 1780:IF ic=0 THEN GOTO 
1OO:ELSE GOSUB 860:GOSUB 1190 

110 INPUT#4," ",c$:GOSUB 290: IF ok=1 THEN GOTO 110:ELSE GOSUB 1780:IF ic=O THEN GOTO 
110:ELSE GOSUB 870:GOSUB 1190 

120 INPUT#4," ',c$:GOSUB 290:IF ok=1 THEN GOTO 120:ELSE GOSUB 1780: IF ic=O THEN GOTO 
120:ELSE GOSUB 900:GQSUB 1190 

130 INPUT#4," "',c$:GOSUB 290: IF ok=1 THEN GOTO 130:ELSE GOSUB 1780:IF ic=O THEN GOTO 
130:ELSE GOSUB 910:GOSUB 1190 

140 CLS:LOCATE 7,12:PRINT #%:LOCATE 4,17:PRINT" Please leave';:FOR a=1 TO 820:NEXT: 
CLS:LOCATE 7,12:PRINT g& 

150 LOCATE 5,17:PRINT"Press any key":IF k$=""THEN 1S50:ELSE CLS:FOR a=O TO 15: INK a,O 
sNEXT:GOSUB 730:GOSUB 720 

160 LOCATE 8,4:PRINT q$:LOCATE 4,9:PRINT'Choose 5 target's sWINDOWH4, 12,16,19,19: 


PAPER #4,0:PEN#4, 10:CLS#4 


170 LOCATE#4, 1,1: INPUT#4," ",c#:GOSUB 1780:1F ic=O THEN SOUND 1,500:GOTO 170:ELSE 
GOSUB 920:GOSUB 1190 


180 INPUT#4," ",c$:GOSUB 300:IF ok=1 THEN GOTO 180:ELSE GOSUB 1780:IF ic=O THEN GOTO 
160:ELSE GOSUB 930:GOSUB 1190 

190 INPUT#4," ",c$:GOSUB 300: IF ok=1 THEN GOTO 190:ELSE GOSUB 1780:IF ic=O THEN GOTO 
190:ELSE GOSUB 940:GOSUB 1190 

200 INPUT#4," ',c$:GOSUB 300:IF ok=1 THEN GOTO 200:ELSE GOSUB 1780:IF ic=O THEN GOTO 
200;ELSE GOSUB 950:GOSUB 1190 

210 INPUT#4," ",c#:GOSUB 300:IF ok=1 THEN GOTO 210:ELSE GOSUB 1780:IF ic=0 THEN GOTO 
210:ELSE GOSUB 960:GQSUB 1190 

220 cd=O:sd=0:sm=0:MODE O:LOCATE 4,15:PRINT"Please Wait..":FOR a=1 TO 1100:NEXT:FOR 
a=0 TO 15: INK a,O:NEXT:CLS:GOSUB 730:!SCRZ2:C_S:GOSUB 730:GOSUB 790 

230 }SCR1i:CLS:PEN 1:GOSUB 730:GOSUB 790 

240 BORDER ©:GOSUB 720:PRINT z#:LOCATE 12,16:PRINT #%:GOSUB 1510 

250 CLS#2:PEN#2,10:GOSUB 1460:GOSUB 1490: INPUT#2," ",c%$:GOSUB 1500:GOSUB 1780:IF ic= 


O THEN GOTO 250:ELSE PRINT x$:GOSUB 630:GOSUB 1140:GOSUB 1470 

260 {SCR2:BORDER 15:PRINT z$;:LOCATE 12,16:PRINT g#:WINDOWH#Z, 13, 16,19, 19:PAPERH2,3 
270 CLS#2: PENH2,10:GOSUB 1460:GQSUB 1490:LOCATE#2, 1,1: INPUTH2," ",c#:GOSUB 1500: 
GOSUB 1760:IF ic=O THEN GOTO 260:ELSE PRINT x$;:GOSUB 310:GOSUB 1150:GOSUB 1470 
280 {SCRI:BORDER O:GOSUB 1510:CLS#2:PEN#2,10:GOSUB 1460:GQSUB 1490: INPUTH2," ",c$: 
GOSUB 1500:GOSUB 1780:IF ic=O THEN GOTO 280:ELSE PRINT x$::GOSUB 630:GOSUB 1140: 
GOSUB 1470:GOTO 260 

290 IF VAL("&"+c$) =PEEK (43500) OR VAL ("&''+c%) =PEEK (43501)0R VAL ("&"+c%) =PEEK (43502) 
OR VAL ("&"+e$) =PEEK (43503)0R VAL ("&''+c$) =PEEK (43504) THEN ok=1:GOSUB 1480:RETURN: 
ELSE ok=O: RETURN 

S00 IF VAL ("&"+c%$)=PEEK (43505) OR VAL ("&''+c$) =PEEK (43506)0R VAL ("'&!'+c%) =PEEK (43507) 
OR VAL ("&"+c$) =PEEK (43508) OR VAL ("&"+c$) =PEEK (43509) THEN ok=1:GOSUB 1480:RETURN: 
ELSE ok=0:RETURN 

SiO IF VAL ("&"'+c$)=PEEK (43500) AND PEEK (43515)=0 THEN cd=1:pop=0:POKE 43515, 1:GOSUB 
980:GOSUB 1190:RETURN:ELSE IF VAL ("&'!'+ce%)=PEEK (43500) AND PEEK (43515)=1 THEN pop=1: 
GOTO 2460:ELSE pop=0 

320 IF VAL ('&"+c$) =PEEK (43501) AND PEEK (43516)=O THEN cc=1:pop=0:POKE 43516, 1:GOSUB 
1000:GOSUB 1190:RETURN:ELSE IF VAL ("&''+c$)=PEEK (43501) AND PEEK (43516)=1 THEN pop=1: 
GOTO 260:ELSE pop=0 

SSO IF VAL("&"'+c$)=PEEK (43502) AND PEEK (43517)=0 THEN cd=1:pop=0:POKE 43517, 1:GOSUB 
1010:GOSUB 1190:RETURN:ELSE IF VAL ("&'"'+c$)=PEEK (43502) AND PEEK (43517)=1 THEN pop=1: 
GOTO 260:ELSE pop=0 

S40 IF VAL ('&"+c$) =PEEK (43503) AND PEEK (43518)=0 THEN cd=1:pop=0:POKE 43518, 1:GOSUB 
1020:GOSUB 1190:RETURN:ELSE IF VAL ("&"'+c%)=PEEK (43503) AND PEEK (43518)=1 THEN pop=1: 
GOTO 260:ELSE pop=0 
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SEABATTLE PROGRAM 


CBE] 350 IF VAL ("&'"'+c$) =PEEK (43504) AND PEEK (43519)=0 THEN cd=1:pop=O:poke 45319, 1:GOSUB 


C9] 
CAAI 
C6C] 
C7BI 
C77) 
C85] 
C94) 
C6E3 
C7D1 
C6C] 
CBB) 
CA2] 
CB1] 
{CO} 
CBC] 
CAC] 
(86) 
C93) 
CAS] 
CB2] 
(C1) 
C9B] 
CCA] 
CD?) 
CBS3 
CCS] 
(C4) 
Ci9] 


[9D] 


CBI) 


[39] 


{C3} 


CD03 
CBEJ 
CBAI 
(C9) 
{C3} 
CAO] 
[22] 
CSD} 


CBF 


1030:GOSUB 1190:RETURN:ELSE IF VAL ("&"+cd%) =PEEK (43504) AND PEEK (43519)=1 THEN pop=1: 
GOTO 260:ELSE IF pop=0 THEN GOSUB 370 


360 RETURN In Issue Three of Print-Out, we 
370 IF cS="bS5"THEN cd=0:GOSUB 690:RETURN . - . Tena 
380 IF c$="al"THEN cd=0:GOSUB 690: RETURN anciuded acl teting called. “lie 
390 IF c$="a2"THEN cc=0:GOSUB 690:RETURN Checker’ that produced codes for 
400 IF c#="a3"THEN cd=0:GOSUB 690:RETURN every line of a program in order 
410 IF c$="a4"THEN cc §0:GOSUB 700:RETURN to help eliminate typing errors. 
420 IF c$="a5"THEN cd=0:GOSUB 700:RETURN : - 
430 IF c$="b1" THEN cd=0:GOSUB 700:RETURN Ene, peaibers That Bee peacoat 
440 IF c$="b2"THEN cd=0:GOSUB 700: RETURN Square rackets. 00. the Peg inning 
450 IF c$="b3"THEN cd=0:GOSUB 700: RETURN of each line are the codes. They 
460 IF c$="b4"THEN cd=0:GOSUB 710:RETURN should not be typed in & all the 
470 IF c$="c1"THEN cd=0:GOSUB 710:RETURN programe will yun eonrect ly even 
480 IF c$="c2"THEN cd=0:GQSUB 710:RETURN c pi i 

490 IF c$="C3"THEN cd=0:GOSUB 710:RETURN if ‘Linechecker' is not used. 
500 IF c#="c4"THEN cd=0:GOSUB 710:RETURN For full instructions on how to 
510 IF c$="cS"THEN cd=0:GOSUB 690: RETURN use it, please refer to the ori-— 
920 IF c$="d1i"THEN cd=0:GOSUB 690:RETURN - . . 

230 IF c$="d2"THEN cd=0:GOSUB 690:RETURN Galea, Seat CLE a aed ren ees 
340 IF c#$="dS"THEN cd=0:G0SUB 700:RETURN 

300 IF c$="d4" THEN co-0:GOSUB 700: RETURN 

9360 IF c#$="d5" THEN cd=0:GOSUB 700:RETURN 

970 IF c#="el"THEN cd=0:GOSUB 700:RETURN 

380 IF c$="e2"THEN cd=0:GOSUB 710:RETURN 

590 IF c$="e3"THEN cad=0:GOSUB 710:RETURN 

600 IF c$="e4"THEN cd=0:GOSUB 700:RETURN 

610 IF c$="e5"THEN cd=0:GOSUB 690:RETURN 

620 RETURN 

630 IF VAL (°%"+c$)=PEEK (43505) AND PEEK (43510)=0 THEN cd=1:pop=0:POKE 43510, 1:GOSUB 


1030:GOSUB 1190:RETURN:ELSE IF VAL("&''+c$)=PEEK (43505) AND PEEK (43510)=1 THEN pop=1: 
GOTO 280:ELSE pop=0 

640 IF VAL ("&"'+c0$) =PEEK (43506) AND PEEK (43511)=0 THEN cco¥1:pop=0:POKE 43511, 1:GOSUB 
980:GOSUB 1190:RETURN:ELSE IF VAL('&'+c$) =PEEK (43506) AND PEEK (43511)=1 THEN pop=1: 
GOTO 280:ELSE pop=0 

650 IF VAL ("&''+c$)=PEEK (43507) AND PEEK (43512)=0 THEN cd=1:pop=0:POKE 43512, 1:GOSUB 
1010:GOSUB 1190:RETURN:ELSE IF VAL ("&'"'+c%)=PEEK (43507) AND PEEK (43512)=1 THEN pop=1: 
GOTO 280:ELSE pop=0 

660 IF VAL ("&%"'+c$) =PEEK (43508) AND PEEK (43513)=0 THEN cd=1:pop=0:POKE 43513, 1:GOSUB 
1000:GOSUB 1190:RETURN:IELSE IF VAL("&'"+c$)=PEEK (43508) AND PEEK (43513)=1 THEN pop=1: 
GOTO 280:ELSE pap=0 

670 IF VAL ("&''+c$)=PEEK (43509) AND PEEK (43514)=0 THEN cc=1:pop=0:POKE 43514, 1:GOSUB 
1020:GOSUB 1190: RETURN:ELSE IF VAL ("&"+c$) =PEEK (43509) AND PEEK (43514)=1 THEN pop=1: 
GOTO 280:ELSE IF pop=0 THEN GOSUB 370 

680 RETURN 

690 GOSUB 1060:GOSUB 1530:RETURN 

700 GOSUB 1070:GOSUB 1530:RETURN 

710 GOSUB 1080:GOSUB 1530:RETURN 

720 INK 0,2: INK 1,13: INK 2,10: INK 3,3: INK 4,11: INK 5,24: INK 6,19: INK 7,23,6: INK 8,27 
INK 9,5: INK 10,26: INK 11,21: INK 12,23: INK 13,10: INK 14,0: INK 15,26,9:RETURN 

730 WINDOWH4, 1,20, 12,25: PAPERH4, O:CLS#4: WINDOW 1,20,1,25:WINDOWHZ, 1,20, 12, 25: PAPERH2 
os CLS#2 

7490 PLOT 58,211, 10:MOVE 58,210: TAG: PRINT" 1"3 sMOVER 9,0:PRINT"2"3 :MOVER 7,0:PRINT"3"s 
:MOVER 8,0::PRINT"4"s :MQVER 9,0:PRINT"5"s 

750 MOVE 19,185:PRINT"A"; :MOVER —33,—-35:PRINT"B"; :MOVER —33,—-35:PRINT'C"s :MOVER -33, 
~35:PRINT"D"; sMOVER -33,-35:PRINT"E"s : TAGOFF 

760 MOVE 315,90:DRAWR 205,0:DRAWR 0,35:DRAWR -205,0:DRAWR 0O,-35:FOR y=20 TO 192 STEP 
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C61] 
C44] 
C13] 
{FBI 


CDF J 


C4D] 
C1D] 


CCF I 
C21] 
CCE] 
C60] 
C7CI 
C80) 
C89] 
C99] 
CA?) 
CBI] 
CCP] 
CD93 
CEI 
C4F] 


C6F I 


CSA] 


(27) 


C31] 


C65] 


CFS] 


CF7] 
C(S9] 
CiDI 
C44) 
C6BI 
C135) 
C7E] 
CEF J 
C13] 


CAQ] 


SEABATTLE PROGRAM 


1:MOVE 50,y:DRAW 245, y, 14:NEXT 
770 FOR y=20 TO 200 STEP 35:MOVE 50,y:DRAW 245, y, 10:NEXT 

780 FOR x=50 TO 250 STEP 40:y=195:MOVE x,20:DRAW x,y, 10:NEXT:RETURN 

790 PEN 4:WINDOWH1,1,20,1,3:PAPER#1,4:CLS#1 

800 PLOT -10,0,14: INK 1,26: TAG:MOVE 255, 238:PRINT g%;:MOVE 255,250:PRINT g$;:TAGOFF: 
PEN 10:LOCATE 3,4:PRINT h$;:PEN 4:LOCATE 2,5:PRINT v#;:PLOT 32,333,3:DRAWR 158,0 


810 PEN 10: 


LOCATE 9,4:PRINT hS;:PEN 4:LOCATE 8,5:PRINT v#3:PLOT 227,332,3:DRAWR 148, 


O:PEN 10:LOCATE 16,4:PRINT h%;:PEN 4:LOCATE 15,5:PRINT v#;:PLOT 452,330,3:DRAWR 148,0 


820 PEN 10: 
830 PEN 10: 


LOCATE 5,6:PRINT hé;:PEN 4:LOCATE 4,7:PRINT v$;:PLOT 96,300,3:DRAWR 154,0 
LOCATE 15,7:PRINT h$;:LOCATE 14,8:PEN 4:PRINT v$;:PLOT 416, 284,3:DRAWR 


155,0:FOR A=1 TO 15:PLOT 447,370:DRAWR -25*SIN(A)—-20,-17,14:NEXT:PLOT 400,440 


840 


RETURN 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
960 POKE 
979 


43500, VAL ('&"+c8) : RETURN 
43501, VAL C'&''+ce$) s RETURN 
43502, VAL ('&"'+c$) s RETURN 
43503, VAL ("&"'+c$) s RETURN 
43504, VAL ('&"+c$) s RETURN 
43503, VAL (CR! +08) : RETURN 
43506, VAL ('&"+c%) s RETURN 
43507, VAL ('&"+c$) : RETURN 
43508, VAL ("&"'+c$) : RETURN 
43509 , VAL (7&'"'+c$) s RETURN 
ENV 1,15,-1,20:0UT &BCOO,8:0UT &BD0O,1:SPEED INK 1,1:BORDER 0,26:SOUND 1,0,150, 


FOR A=1 TO 10:PLOT 397,370:DRAWR Z25xSIN(A)-20,-17,14:NEXT:PLOT 400, 440 
FOR A=i TO 15:PLOT 47,370: DRAWR 25kSIN(A)—-20,-17,14:NEXT:PLOT 400,440, 14 


SEABATTLE 


15,1,,31:WHILE (SQ(1) AND &80)<>0:WEND: OUT &BCOO,8:QUT &BDOO,0:BORDER O:RETURN 

980 GOSUB 1050: INK 0,15:FOR a=1 TQ 100:NEXT:INK 0,2:SPEED INK 1,5:LOCATE 3,4:PEN 7: 
PRINT h$;:FOR a=1 TO 250:NEXT:LOCATE 3,4:PEN 14:PRINT h%;:GOSUB 1040:FOR s=1 TO 16 
990 {SINK,2,6,4,5:FOR i=1 TO 250:NEXT:NEXT:RETURN 


1000 GOSUB 


1050: INK 0,15:FOR a=1t TO 100:NEXT: INK O,2:SPEED INK 1,5:LOCATE 9,4:PEN 7; 


PRINT 4#;:FOR a=1 TO 250:NEXT:LOCATE 9,4:PEN 14:PRINT h#;:GOSUB 1040:PEN 1:FOR s=1 
TO 16:;SINK,8,13,4,5:FOR i=1 TO 250:NEXT:NEXT: RETURN 


1010 GOSUB 


:PRINT Hts: 


1050: INK O,15:FOR a=1 TO 100:NEXT: INK 0,2:SPEED INK 1,5:LOCATE 16,4:PEN 7 
FOR a=1 TO 150:NEXT:LOCATE 16,4:PEN 14:PRINT h®;:GOSUB 1040:PEN 1:FOR s=1 


TO 16: :SINK,15,19,4,5:FOR i=1 TO 250:NEXT: NEXT: RETURN 


1020 GOSUB 


1050: INK 0,15:FOR a=1 TO 100:NEXT:INK 0,2:SPEED INK 1,5:LOCATE 5,6:PEN 7: 


PRINT h#;:FOR a=1 TO 250:NEXT:LOCATE 5,6:PEN 14:PRINT h%;:GOSUB 1040:PEN 1:FOR s=1 
TO 16: :SINK,4,8,6,7:FOR i=1 TO 250:NEXT:NEXT:RETURN 


1030 GOSUB 


=PRINT h$;: 


1050: INK 0,15:FOR a=1 TO 100:NEXT: INK 0O,2:SPEED INK 1,5:LOCATE 15,7:PEN 7 
FOR a=1 TO 250:NEXT:LOCATE 15,7:PEN 14:PRINT h$;:GOSUB 1040:PEN 1:FOR s=1 


TO 16: iSINK,14,19,7,8:FOR i=1 TO 250:NEXT:NEXT: RETURN 


1040 EN 1, 


15,-1,20:0UT &BCOO,8:O0UT &BDOO,1:SPEED INK 1,4:BORDER 0,246:SOUND 1,0,90, 


15,1,,S51:WHILE (SQ(1) AND &60)<>0:WEND:OUT &BCO0,8:0UT &BDOO,0:BORDER O:RETURN 


1050 GOSUB 
1060 GOSUB 
1070 GOSUB 
1080 GOSUB 
1090 SOUND 
:NEXT: PLOT 
1100 SOUND 
:NEXT:PLOT 
1110 GOSUB 
TAGOFF : FOR 
1120 GOSUB 


1090:GOSUB 1100:RETURN 

1090:GOQSUB 1100:GOSUB 1110:RETURN 

1090:GOSUB 1100:GOSUB 1120:RETURN 

1090:GOSUB 1100:GOSUB 1130:RETURN 

1,0,15,15,1,,31:TAG:PLOT 269,270, 7:SPEED INK 1,1:PRINT j$;:FOR a=1 TO 100 
269,270,0:PRINT j$;:FOR a=1 TO 200:NEXT: TAGOFF: RETURN 
4,0,15,15,1,,351:TAG:PLOT 293,270,7:SPEED INK 1,1:PRINT j#s;:FOR a=1 TO 100 
293,270,0:PRINT j$;:FOR a=i TO 350:NEXT: TAGOFF: RETURN 

1800: TAG: PLOT 5,350,15:SPEED INK 1,2:PRINT s%3;:PLOT 15,300,15:PRINT s#3: 
t=1 TO 15: :SINK,1,2,7,7:1SINK,1,2,4,4:FOR a=1 TO 180:NEXT:NEXT!:RETURN 
1800: TAG: PLOT 359,304,15:SPEED INK 1,2:PRINT s#;:PLOT 269,316,15:PRINT s# 


3: TAGOFF:FOR t=1 TO 15: !SINK,9,10,6,6: !GINK,12,13,6,7:FOR a=1 TO 180:NEXT:NEXT: RETURN 
1130 GOSUB 1800: TAG:PLOT 200,255,15:SPEED INK 1,2:PRINT s#;:PLOT 290,285,15:PRINT s¢ 
3: TAGOFF:FOR t=1 TO 15: '1SINK,7,8,9, 10: iSINK,10,10,7,8:FOR a=1 TO 180:NEXT:NEXT: RETURN 


cont. an pda 
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HOMEBREW REVIEW 


~ HOMEBREW REVIEWS 


Lords _ of Magic — BY TONY KINGSMILL 


(Price — £3.95 on disc) 


This is an adventure game which was written using The Quill with graphics 
designed by the Illustrator from Gilsoft. 

The plot is a simple one :- You have been sent to a distant land by power— 
ful magic from where no-one has ever escaped. Many creatures will attack you at 
first sight but a few have avoided the magical lords and live away from their 
enemies. Most of these are humans and they know ways of defeating the magic but 
are too old to do so. Your task is straightforward - find a way to defeat the 
magic and then return home. 

Now onto actually playing the game. The loading screen was particularly good 
though there were no graphics but it was well laid out & looked good to the eye. 
I was pleased to find that there were graphics included in ‘Lords Of Magic’ but 
some of them were not very good and I had to rely totally on the description to 
know where or what the location was & the graphics were the game's worst point 
by far. 

When I started playing the game. I was quite impressed with the text and the 
overall descriptions (although some were rather short) of the various locations 
but I thought that there could have been a larger vocabulary for the the player 
to use and I would have liked to have seen a command to ‘TAKE ALL' and to 'DROP 
ALL', which would have made for less typing. 

But in general the game was by no means bad but at the same time was nothing 
special. However, let us not forget that it is a homebrew game and the price is 
reasonable at £3.95 (including postage and packing). Unfortunately it is avail— 
able only on disc but apparently there is the possibility of the game being re- 
leased on tape at a later date. Be warned, though, that on a CPC 464 (even with 
a disc drive) the loading screen program doesn't work correctly but this can be 
overcome by simply running the game directly. 

If you do buy the game but get stuck and would like some help (& believe me, 
the game is hard!), Tony Kingsmill has produced some free clue sheets which are 
available, providing that you send an SAE. The sheets include a list of all the 
objects in the game, the most interesting locations & the solutions to the many 
puzzles. 


LORDS OF MAGIC costs £3.95 on disc and can be obtained fron: 
Tony Kingsmill, 202 Park Street Lane, Park Street, St Albans 


Hertfordshire AL2 2AQ 
PLEASE MAKE ALL CHEQUES/POSTAL ORDERS PAYABLE TO T.KINGSMILL 
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HOMEBREW REVIEW 


Island of Chaos — BY TONY KINGSMILL 


(Price — £3.95 on disc) 


This is the second of the two adventure games by Tony Kingsmill. Again it is 
Quill based with the graphics designed on the Illustrator. 

For some reason I liked the background to the game & the plot is that a long 
time ago, there was a prosperous island called Brael Ti in the sea of Karzania. 
Trading had always been an important feature of the island and Kansith, who was 
the island's leader, was rich and believed to have possessed magic but despite 
his fortune he looked after his people well. However soon Brael Ti was attacked 
& taken over by a man called Baktron. Kansith was murdered & Brael Ti was isol— 
ated from the outside world. Trading was forced to stop and no-one dared to set 
foot on the island. But now, you have to explore the island & defeat the mighty 
Baktron himself. 

As I loaded the Island of Chaos I wondered whether it would be upto the same 
standard as the previous game, Lords of Magic. I wasn't disappointed. The load— 
ing screen was again good as were the imaginative descriptions & puzzles (some 
of which were quite tricky!). 

Like Lords of Magic this game included graphics but unfortunately they were 
not very good (the ones I saw at least) at all and this rather spoilt the whole 
impression of the game and lowered its standard somewhat (as did a large number 
of spelling mistakes!) 

That apart the game was a good one and there were a number of small features 
I particularly liked. These were notably the SAVE and LOAD postion features and 
the SCORE command which gave your present score and health at the touch of a 
button and the game was made even more interesting by an enjoyable, if slightly 
limited, interaction with other characters. Another incidental that I found im- 
pressive was the presentation of both of his games; it was obvious that a great 
deal of effort had gone into making neat, clear and informative covers for his 
games. It's little things like this that make a homebrew game more professional 
and a tip that other homebrew software producers should take up. 

Like the previous game, it failed to load on a CPC 464 but again this could 
easily be got around either by altering a line or two or running the main game 
directly. On the 6128, however, the game loaded without any hitches. 

So assuming that this small problem can be sorted out, I thought the game 
was appealing enought, of a good enough standard (though by no means excel lent) 
and if you especially enjoy adventure games I would say that it's good value at 
£3.95 on disc. 

Like Lords Of Magic it is available only on disc at the moment & again there 
are free clue sheets available providing you send an SAE. 


ISLAND OF CHAOS costs £3.95 on disc and can be obtained fron: 
Tony Kingsmill, 2@2 Park Street Lane, Park Street, St Albans 


Hertfordshire AL2 2AQ 
PLEASE MAKE ALL CHEQUES/POSTAL ORDERS PAYABLE TO T.KINGSMILL 
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HOMEBREW REVIEW 


Educational Pack One__ ,,..% 7B PRG, MiP sornaE 


(Price — £5.95 on tape or disc) 


Back in Issue Two of Print-Out we reviewed Maths Master Plus, a mathematical 
aid by the small software company, MiP Software, and it was highly recommended. 
Now, MiP have produced an education pack which includes Maths Master (the pred— 
ecessor of Maths Master Plus) to suit ages from 9 to 14. 

The pack includes a large number of mathematics programs that cover a wide 
range of subjects. They include :— addition and subtraction (with 3 different 
skill levels), multiplication and division, simultaneous equations, fractions & 
percentages, areas, ratios, number series, indices and number guess. The last 
program in the collection allows you to practice your weighing and balancing 
skills. 

With the disc (a tape version is available) comes a well presented and very 
comprehensive instruction sheet of all the programs which explains each of them 
in a clear and useful way. I won't bother to go through each of the 10 programs 
in turn but I will give my general view on the whole pack. 

The programs were well presented and organised and there was no confusion as 
to what was going on at any time. Having said that, I thought that some of the 
programs could have done with clearing the screen a bit more often, as when the 
wrong type of input was entered the screen quickly turned into a mess of words 
and numbers. 

I had the disc version to review and there was no problem with waiting for 
the games to load but I would imagine that there could be a long wait on the 
tape version (as I experienced when reviewing Maths Master Plus a while ago). 

The Educational Pack is probably aimed at the less advanced mathematicians 
(more for 8-11 year olds) whereas the Maths Master program is designed for the 
more advanced user. Maths Master is not an educational program but is rather an 
advanced calculator where you enter the numbers and the computer gives you the 
answer whereas the other programs in the Educational Pack are purely learning 
aids. The only difference between Maths Master and Maths Master Plus is that the 
latter is a more upto date version of the other and features more functions. If 
you find maths hard, this must surely be a certain way to improve although the 
game provides you with no real incentive to continue playing it. 

The price is a very reasonable £5.95 on disc or double tape pack and with it 
comes the extremely thorough instruction sheets. At that price, although not a 
bargain, it certainly represents good value for money . 

I also hear (on the grapevine!) that MiP are planning an Educational Pack 2 
which will have an ‘Englishy theme' (?) I shall wait in suspense and keep you 
informed in further issues of Print-Out. 


EDUCATIONAL PACK ONE costs £5.95 on disc or double tape pack 
and is available from MiP Software, 4 Wham Hey, New Longton, 


Preston, Lancashire PR4 4XU. 
PLEASE MAKE ALL CHEQUES/POSTAL ORDERS PAYABLE TO MATTHEW PINDER. 
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PUBLIC DOMAIN FEATURE 


A short while ago, Print-Out heard of a 

PUR DO Me new Public Domain library - CPD — which 
: was tape based. There are very few such 
libraries & so we asked the man behind 


A TIN sees (PD U it, Alan Scully, to write an article on 


his interesting venture amd here it is. 


Ever since I got my CPC, I have been programming. I chose the CPC because the 
BASIC was like that of the BBC & was simple to learn. Within days I was writing 
graphics programs, & within weeks I started on my first game, SUGAR DISC, which 
I worked on for months because I would keep adding bits into it to try and make 
it look more professional. 

I first got the idea for distributing Public Domain Software through Amstrad 
Action when I realised that there was a vast shortage of cassette based Public 
Domain libraries for the Amstrad and so CPD, Cassette Public Domain, was born. 
At first, getting programs was difficult. I had a large number of games that I 
had written myself but more serious software like a Word Processor & an assemb-— 
ler were more difficult to find. I hunted around other Public Domain libraries 
to get software, and the ‘Type~-ins' page of Amstrad Action proved a great help. 
Then I had the problem of publicity. I wrote to Print—Out, and they invited me 
to write this article. 

CPD has every kind of program you could possibly want for your Amstrad, inclu- 
ding Utilities, Educational Programs, Artificial Intelligence programs, serious 
software & applications software. If all you want are games, then you need look 
no further than CPD. We've three games packs that promise to entertain you with 
every type of game you could possibly imagine:— Maze Games,Strateqy Games, Snake 
Games, Card Games, Shoot-em Games, even a Break-Out clone & a Cricket Game. CPD 
also caters for the BASIC programmer with the AA Sprite Editor, the AA Sprite 
Driver, & subroutines to help with the more complicated tasks. Such subroutines 
include Split Modes (from AA), 40 Characters in Mode 0. Multi-—Height characters, 
scrolling messages and many more. As a first order I strongly recommend the CPD 
starter pack. It contains a selection from all our PD packs and is a great int- 
roduction to the world of Public Domain software. If of course you would rather 
choose a specific pack, then the packs CPD has are :- 


CPD 1 : GAMES 1 CPD 5 : AI/EDUCATIONAL 
CPD 2 : GAMES 2 CPD 6 : APPLICATIONS 
CPD 3: (BIG) GAMES 3 CPD 7 : SERIOUS 

CPD 4 : SUBROUTINES/ROUTINES CPD 8 : STARTER PACK 


So, finally, we come to the cost. For the starter pack send :- 

A blank cassette. 25p to cover duplication, and a Stamped Addressed Envelope. 
For two selections from the above list, ser :-— 

A blank cassette, 50p to cover duplication, and a Stamped Addressed Envelope. 
The address is :- 

ALAN SCULLY, 119 LAUREL DRIVE, GREENHILLS, EAST KILBRIDE, GLASGOW G75 9JG. 
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Uy 
A MACHINE CODE RSX 


STEP 


—A Single Stepping Routine 


by BOB TAYLOR 

Many people have found out the hard way that Machine Code is very difficult 
to program correctly. One of the reasons for this is that machine code does not 
possess a thorough and helpful error trapping system such as that used in BASIC 
- often the first the programmer knows of an error is when the computer resets! 
For this reason it is useful to be able to keep track of the various registers 
and to see what effect the program has on them whilst running. In order to help 
solve this problem, we have devised an RSX called ‘STEP. It can be used to look 
at the values stored in the registers and to see how they are altered, step by 
step, whilst the program is running. :STEP is a relocatable RSX that is used to 
‘single step’ through Machine Code instructions. 


The top line shows the Stack Pointer 


When entering the RSX, a hexa- address (shown moved to &BF@@ for use 
decimal display similar to the with :STEP) and the next four entries 
following will be shown: on the stack. This address is the low 
byte of the first ‘word' (ie the sec— 
SP BF@G 822 GEG@ CB@BO GB00 ond half of that word). In practice, 
IY 6000 01 89 7F ED 49 C3 @@ @@ this low byte is lower in memory than 
IX @00@ @1 89 7F ED 49 C3 the high byte — however when display— 
HL @@00 @1 89 7F ED 49 C3 ing a word, the high byte is written 
DE @0@@ @1 89 7F ED 49 C3 first. The display of any words above 
BC @060 01 89 7F ED 49 C3 &BEFF does not necessarily show that 
AF 00 FF SZ h Pnc they have actually been PUSHed there. 
PC @@@@ 01 89 7F A word PUSHED onto this Stack will be 


sent to the two bytes below the exis— 
ting address which will, itself, then 
be altered to point to the low byte that has just been PUSHed. The stack has no 
limits, so care must be taken not to PUSH below &BDF4 (&BE8@ if a Disc Drive is 
fitted), or above about &BF4@ else the computer might crash. 

The next five lines give the contents of the registers IY, IX, HL, DE and BC 
as a word. In each case this is assumed to be an address and there follow the 
contents of the eight bytes starting from this address and upwards. In practice 
however, the register contents may not be an address or even a word (the HL, DE 
and BC registers can normally be split into halves — so can the IY and IX regi- 
sters). In the display, the H. D & B registers occupy the high byte of the word 
(ie the first half) while the L,E & C registers are the low bytes. The CPC's do 
not readily support use of the alternate register set, and therefore no attempt 
has been made to display their contents. 
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my 


y 


STEP PROGRAM 


The seventh line displays the Accumulator and Flag registers:— the first byte 
is A, the second F. The Flag register is then repeated in binary form (from bit 
7 to 6) with the relevant bits identified by the initial of their name when set 
ie. Sign, Zero, half carry, Parity (=overflow), n (=add/subtract), Carry. Those 
signs, shown by lower case, cannot be tested and don't affect conditional Jumps 
etc. The two bits that aren't used are present as spaces to provide proportion. 

The final line of the display is the Program Counter. The address shown is 
that of the next Machine Code instruction to be performed. This is followed by 
the full complement of bytes which go to make up that instruction — either 1,2, 
3 or 4. The bytes are in memory sequence, so addresses and words are presented 
with the low byte first. 


How ta access STEP 


This RSX is fairly simple and flexible to use but it has several different 
ways of utilising it. 
1. Sometimes a Program Counter address parameter will be entered & this should 
immediately follow iSTEP. This then becomes the address of the next instruction 
on the PC line. If this parameter is omitted, then the previous Program Counter 
address will be retained (or &@@@@ will be used if this is the first time that 
the RSX has been entered). 
2. It is possible to enter values or addresses into any or all of the registers 
via parameters. Each such entry must have two parameters :~ The first must be a 
value from 1 to 7 to identify the register required (1=AF, 2=BC etc up to 6=IY, 
7=Stack Pointer). The second parameter will be the value or address required to 
be loaded — remember that the H, D and B registers require values multiplied by 
296 (whereas L, E and C do not). Theoretically this should also apply to the A 
register but since this is much more frequently used than the F,. the input for 
this pair of registers has been reversed to normal, and only Flag bits must be 
multiplied by 256. 
3. A convenient way to utilise the register indentifying parameter would be to 
assign values of 1 to 7 to the BASIC variables A, B, D, H, X, Y and S — instead 
of entering a value as the first of the pair, the variable could be substituted 
in and thus making the sequence of parameters much clearer; 

eg ‘STEP, &8000, a, 65,h,&CO00, Cc, &4000, d, & 4000 
Note that, apart from the PC address parameter, the order of any other register 
entries does not matter. The full syntax of the RSX is: 


ISTEP £€,<Program Counter address>] (,<list of: (<Register identifier value>, 
<Register value>]] 
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STEP PROGRAM 


Once !STEP has been entered, only three keys will be effective and they are: 


ESC 


ALL 


JUMP over the instruction at the Program Counter without performing it. 
PERFORM the instruction and update any registers affected by it. However, 
some instructions cannot be carried out due to the CPC firmware and these 
will be jumped over as if 'J' had been used. Of those allowed, most inst-— 
ructions (including all the ‘illegal' ones involving halves of the IX and 
IY registers) are performed normally, but a few are simulated — CALL, JP, 
JR etc. CALL when the conditions allow it, is expected to RETurn from the 
CALLed routine to the instruction which follows; if it does not, the con- 
puter may lock-up and then have to be reset. 

to return to BASIC. All registers etc are preserved for the next entry to 
‘STEP unless parameters are entered at that time. 

other keys presed will be displayed but no action will be taken. 


It is often useful to precede a !STEP command with a CLS to give an uncluttered 
display. This was not incorporated in the RSX itself, so that any existing data 
elsewhere on the screen could be retained if needed. Some instructions are not 
performed at all and they are:— DI,EI,EX AF,AF’ ,EXX,HALT,IM 9,1 OR 2, IND, INDR, 
INI, INIR,LD with Interrupt or Refresh registers, QUTD,OTDR,OUTI,OTIR, RETI,RETN. 


LISTING 


[Fi] 
C98] 
CEQ] 
(54) 
(4B) 
C21] 


C44) 
CE6] 


C87) 


CEA] 
C65] 
CA?) 
CAS] 
C13] 
C39] 
€D1) 


*STEP-LOADER copyright R Taylor i989 

MEMORY HIMEM-&44@: RESTORE:PRINT: PRINT" Please wait a few seconds" 

FOR lin=@ TO &440/8-1:total=@:FOR n=1 10 &:READ as 

byte=VAL ("&"'+a¢) :POKE HIMEM+1Linkx8tn, byte 

total=total+byte:NEXT n 

READ a$:IF VAL ("&!'+a$)<>total THEN PRINT:PRINT"Error in line" 1link10+1190: 

END 

7@ NEXT LinsIF PEEK(6)=&80 THEN POKE HIMEM+&30,&93: POKE HIMEM+&31,&CA 

8@ PRINT:PRINT"Al1] M/C loaded'":PRINT:PRINT"Press *S’ to save M/C as STEP.BI 
N':WHILE INKEY$="""sWEND:IF INKEY(60)<>—-1 THEN a=HIMEM+1:SAVE "STEP.BIN", 
B,a,&440 

90 PRINT:PRINT"To Load and Initialise !STEP RSX with a program present just 
Enter: ":PRINT"MEMORY HIMEM-&440: a=HIMEM+1 : LOAD" CHRS (34) "STEP. BIN" CHRS (34 
)",a:CALL a":PRINT"in Direct Command Mode with the Disc or Tape inserted 
at the correct place" 

10@ END 

110 DATA 21,3 ,03,19, 3E, 19,4E, 23, 13B 

120 DATA 446,23,E5, D5,EB, 09, 4E, 235, 388 

13@ DATA 46,CB,BS,EB,E1,E5,09,6B,56€ 

140 DATA 72, 2B, 73,01,E1,3D,20,E6,405 

150 DATA 91,34,80,EB, 346,09, 23,C3, 385 

16@ DATA D1,BC, 36,05, 9E, @0, 21,55, 254 


SSSERRES 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


STEP 


CB,C3, 1B, 00,07,83,FD, 21,351 
2F , 83, B7, 28, 34,47, DD, 54, 33F 
01, DD, SE, 20,05, 28, 30, SE, 1D7 
07, DD, 96, 02, FE, 06,38, 05, 2BD 
20, D8, 4A, 53,59, 3C,FD,E5, 40C 
FD, 23, FD, 23, 3D, 20,F9,FD, 493 
72,FF,FD,73,FE,FD,E1,DD, 469A 
23, DD, 23, DD, 23, DD, 23, 10, 333 
CD, FD, 56, OF,FD,5E,@E, 1A, 3B2 
13,FE,DD,28,41,FE,FD,28,47A 
3D, FE, ED, 28, 5€,21,5F,83,3B1 
01,40,00,ED,B1,79,@E,21,271 
20, 6E,04,B7, 28,68, 04,FE, 2DD 
04,38, 65,04,FE, OA, 38,60, 247 
Q4,FE,13,38,5B,0E,03,FE,2B7 
25, 38,55, 04, FE, 29, 38,50, 265 
FE, 31,38, 06, 0D, 04,FE,37,2B3 
38, 46,06, 00, 18,42, 21,A9, 108 
83, 01,55, 2, 18,ED,B1, 79, 30A 
01,01, 92, 20, 33, 01,02, 07,061 
B7, 28, 2D, 06, 00, FE, 36, 38, 27E 
27, OC, FE, 51, 38, 22, WC, 18, 200 
1F,18,94,21,FE,83,01,30, 200 
00, 10,ED,B1,79,21,01,02, 235 
20, 0E, GE, 02, FE, 05, 38, 28, 181 
06, 00, FE, 34, 38,02, 0E, 04, 184 
1B, FD, 72, OF ,FD, 73, 0E, 3E, 355 
1E,CD, 54, BB, DS,FD,E5,C5,57C 
21, 0D, 83, QE, 08, 06, 08,C5, 19A 
7E, 23, B7,C4, 54, BB, 20,F8, 449 
06,02, 3E, 20,CD, SA, BB, C5, 30D 
Q6,02,FD, 7E,01,5F, OF, OF, 201 
OF , OF ,ES, OF ,CS, 90, 27,CE, S5E 
4,27, CD, 5A, BB, 7B, 10,F2, 3C& 
01,05, 28,09, FD, 2B, 79, FE, 396 
@2,20,DC, 18,D5,FD,23,C1,3CC 
79, FE, 02,20, 16,3E,20,CD, 2DA 
5A, BB, 7E, 23, CB, 03, 38,02, 2BE 
3E,20,CD,5A, BB, 10,F3,18,35B 
3F,18,04,FD,56,01,FE, 01,354 
20,03,E3,45,E3,FE, 08, 20, 354 
01,13, 3E, 20,CD, 5A, BB,C5, 319 
06,02, 10, OF, OF, OF, OF, £4, 144 
OF ,C4, 90, 27, CE, 40, 27,CD, 38E 
5A, BB, 1A, 10,F2,C1,05, 28, 31F 


C7F J 
C47] 
[80] 
C1@] 
C38) 
CDS] 
CD2] 
CA4] 
[C30] 
CA4] 


CFE] 
[24] 
C22] 
CAF] 
(68) 
C16] 
C@3] 
{F2] 
CC] 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


In Issue Three of Print—Out, we 


Limneclhrecker 


A PROGRAM TYPING AID 


PROGRAM 


OF ,79, FE, 28, 20, DB, 1B,CB, 36° 
40,20, DC, 13, 13,13, 18, D1, 25€ 
3E, 12,CD, 5A, BB, 3E, 2A, CD, 347 
5A, BB, 3E, 0D, CD, 54, BB, FD, 43F 
23,FD, 23, 0D, 20,AB,C1,FD, 3D9 
E1,D01,3€,8°,CD, 5A, BB, 3E, 49F 
12,CD, 5A, BB, 3E, @D,CD, 5A, 366 
BB, CD, 06, BB, FE,FC,C8,F6, 601 
20, CD, 5A, BB, DS, 34, 28, 0A, 344 
Dé, 30, 20, DE, 47, EB, 09,EB, 42A 


for use with PRINT-OUT 


included a listing called ‘Line— 
Checker' that produced codes for 
every line of a program in order 
to help eliminate typing errors. 
The numbers that are printed in 
square brackets at the beginning 
of each line are the codes. They 
should not be typed in & all the 
programs will run correctly even 
if ‘Linechecker’ is not used. 

For full instructions on how to 
use it, please refer to the ori- 
ginal article in Issue Three. 


720 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


18,64, BB, 18, CA, C2, 82, 05, 341 
28, 23,05, 28, EF, 5, 28,58, 1EF 
05, 28, 70,05, 28,53, 05, 28, 140 
1C,FE, DD, 20,08,FD,54,05, 377 
FD,5E, 04, 18,41, FD, 56,03, 308 
FD, SE, 22, 18,39, FD, 56,07, 308 
FD, 5S€, 0, 18, 31,FE, 18, 28, 268 
20, 30,05, FD, 35, 0B, 18, OF, 1B9 
FD, 4E, 0C, FE, 30,CB, 71,38, 3F9 


C70) 


[26] 
(C7) 
£79) 
C1DI 
CEB) 
C49) 
C70) 
C90] 
CSD) 
(89) 
(53) 


STEP 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


02,CB, 41,28, 28,CB, SF, 20, 288 
@8, 13,13,18,11,CB, SF, 20, 101 
FS, 13, 14, 13, FE, 80,38, 01, 2EF 
15,83, 5F, 30,01, 14,03, 77,276 
8,13, 13, 13,FD,66,01,FD, 310 
GE , 00, 2B, 72, 2B, 73, 16, 20, 1BF 
E46, 3F, SF, FD, 74,01,FD, 75,468 
@0, 18,E3,CB, 4F, 20,04,CB, 304 
57, 28,02, 13,13, 13,CB,47,10C 
20, 23,FD,4E, OC, FE, D0,CB, 433 
71,38, 0E,FE,E0,CB, 41,38, 3D9 
08,FE,F0,CB,51,38,02,CB, 417 
79, 28, 06,CB, SF , 20,06, 18, 20F 
B5,CB, SF, 20,B1,FD,66,01,414 
FD, 6E,00,CB, 4F, 20,0E, CB, 37E 
57,28, 11,2B, 72, 2B, 73,FD, 208 
74,01,FD, 75,00,EB, 2B, 56, 353 
2B, SE, 18,92, SE, 23,56, 23, 22D 
18,A1,21,EA,82,EB, 36,05, 374 
91, ED, B80,EB, 3D, 28,04, 70, 3F2 
23, 18,F9,D5,FD,E5,F3,ED,5CB 
73, 2D, 83,31, 31,83,FD,E1, 366 
DD,E1,€1,D1,C1,F1,€D, 7B, 468A 
QF ,83, 20,00, 20, 00,ED, 73,212 
2F ,83,31,3D,83,F5,C5, D5, 432 
E5,DD,€5,FD,ES.ED, 7B, 2D, 61E 
83,FB,FD,E1,D1,18,92,53,528 
54,45, D0, 00, 20,53, 50,00, 20C 
49,59, 02, 49,58, 00, 48, 4C, 1D7 
00,44, 45,00,42,43, 00,41, 14F 
46, 00,53, 5A, 20,68, 20,50, 1EB 
GE, 43,50, 43, 20, 02, 20,00, 144 
BF , 00, 22, 20, 00, 00, @0, 20, @BF 
QO, 0, DO, 0, 20, 00, 00, 21,021 
00,34, 00,38, 20,86, 00, BF,1B1 
00,E4,00,11,01,ED,01,C3, 207 
@2,D9, 02, DC, 02,E8,02,F2, 395 
Q2,F3,02,FF,02,4F, 02,06, 24F 
OE, 16, 1E, 26, 2E, 36, 3E,C4, 1D@ 
CE, D6, DE,E6,EE,F4,FE,D3,71D 
DB, CB, 12, 18, 20, 28, 30, 38, 27E 
@1,11,21, 22, 2A, 31,32, 3A, 11C 
CF ,D7, DF, EF,C3,C2,CA, D2, 695 
DA,E2,EA,F2,FA,CD,C4,CC, 6EF 
D4,DC,E4,EC,F4,FC,C9,C0, 6F9 
C8, D0, D8,E0,E8,FO,F8,C7,6E7 
E7,F7,FF, 28, D9,F3,FB, 76,622 
EQ, 21,22, 2A, 36, 26, 2E, 46, 226 
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PROGRAM 


1290 
1300 
1310 
1320 
1330 
134 
1350 
1360 
1370 
1380 
1390 
140 
14190 
1420 
1430 
1440 
1450 
1460 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4E , 56, 5E, 66, 4E, ZE, 70, 71,335 
72473574, 75,577, 86, BE, 96, SEF 
GE, AG, AE, Bb, BE, 34, 35,23, 3F2 
2B,E5,E1, 09,19, 29, 397,63, 358 
F9, 24,25, 2C, 2D, 84,85, 80, 330 
8D, 94,95, 9C, 9D, A4,AS,AC, 4E4 
AD, B4, BS, BC, BD, 44,45, 40, 464 
4D, 54,55, 5C,5D, 64,65, 6C, 264 
4D, 7C, 7D, 60, 61,62,63,67, 353 
68,69, 6A, 6B, 6F,E9, 43, 4B, 38C 
53, 5B, 63, 4B, 73, 7B, 42,40, 2F6 
52,50,62, 60,72, 7A, 40,41, 2E5 
48, 49,50, 51,58,59, 60,61, 204 
68,69, 70,71, 78,79, 4F, F351 
47 ,57, BB, AB, BA, AA, B3, AS, 4BE 
B2,A2,67,4F, 44, B9,A?, BS, 488 
A8,B1,A1,B0,40,45, 46, 4D, 422 
56, SE, 22, 00, 00, 02, 2, 00, OBA 


MiP Software 


SHAREWATCHER II -— a superb stockmarket simulation 
which allows you to test your skills on the stockmarket without 
losing a fortune!! ’...interesting and enjoyable...’ said Printout 
issue 3. ’...well worth considering.’ said WACCI Dec’89. 
Sharewatcher II costs £4.50 on tape and £7.50 on 3° disc. 


MATHS MASTER PLUS - is a comprehensive computer 
utility packed with well over {00 useful formulae and conversions. 
It is simple to operate and is based around two main menus. Included 
in the program are sections on volumes, areas, statistics, physics 
formulae, trig and much more. Just type in the figures you know, 
and the answer will be provided in seconds - its invalable for all 
students. *...excellent buy...’ said Printout issue 2. *...Well 
written useful...’ said A.E.M. Maths Master Plus costs £3.95 
on tape and £6.95 on 3° disc. 


EDUCATIONAL PACK 1 — this pack contains ten 
superb educational programs to suit ages §-{4,A11 the programs have 
a mathematical theme to them, and are simple to use, although an Ad 
manuel is included in the price. The prograns included are fracions, 
ratios, series, addition and subtraction, and many many more. Also 
for a limited period a copy of Maths Master will be given free. This 
program is the predecessor to the Maths Master Plus program shown 
above. This is superb buy at £5.95 on 3° disc or double tape pack. 


To order please send a cheque or postal order (payable to M. Pinder) 
to MiP Software, 4 Wham Hey, New Longton, Preston, PR4 4x0. 


ADVANCED BASIC - ERRORS TUTORIAL 


Advanced Basic Uy 
Why errors can be FUN 


Every programmer in BASIC, unless they're very lucky or extremely talented, 
will have seen at some time an error message such as the common ‘Syntax Error' 
or. even worse. the ‘Unexpected RETURN’. 

Seriously though, when any error is encountered in a BASIC program a complex 
and precise procedure is followed by the BASIC interpreter. There are four main 
error commands and they are ERR, ERL, ERROR and ON ERROR GOTO. However on a 664 
or 6128 there's an additional command. DERR, which handles all disc errors. For 
now, we will be concerned only with the four instructions that exist on all the 
CPCs. Before we look at any examples of ‘error trapping’, we need to know what 
each of the above commands does. In fact, both ERR and ERL are not commands but 
actually variables that are looked after by the computer itself. When an error 
occurs, the number of that errer is stored in the variable ERR - you can finda 
list of all the error numbers and also what they represent at the back of your 
manual. For example, type in this line :- 

1Q READ as 
Now run this short program and the message ‘DATA exhausted in 10' is printed in 
order to inform you that no new data is available to be read. If you now enter: 
PRINT ERR 
The number '4' should appear and if we look this up in our manual we find that 
this signifies that the DATA has been exhausted. ERL is also a variable and it 
holds the line number in which the last error occured. So type :- 
PRINT ERL 
The number '10' now appears & this tells us that the error happened in line 1@. 


If you were writing a program that involved setting both the PEN & PAPER to 
bright magenta, it would be sensible to add a few lines to the program so that 
whenever an error occured, the screen would be set to a some sensible colours & 
an indication of the error & its location would be given. The program below is 
an example of this :- 


1@ ON ERROR GOTO 1000 
2@ INK 1,8: INK 2,8 
30 FOR i=1 TO 3 
999 END 
1@@@ REM Error trapping routine 
1010 MODE 2: INK 1,24: INK 9,@:PEN 1:PAPER 9 
1920 PRINT “ERROR'SERR;"in line";ERL 
1030 PRINT:LIST 
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When run, the program tells you that there is ERROR 26 in line 3@ — ERROR 26 
refers to a NEXT instruction being missing. The actual error trapping routine 
is contained in lines 1000-1030 and line 10 sets this up by saying that as soon 
an error is encountered the program must go to line 1000. 

Another use of the error commands is so that the user can customise his own 
error messages. One way to do this is to send the program off to an error trap-— 
ping routine by using the ON ERROR GOTO command, see if ERR equals a particular 
value & then take the appropriate action. This short program demonstrates this 
point. 


1@ QN ERROR GOTO 1000 


2@ MODE 2 

30 INPUT "Please enter a number :- ",a 
40 PRINT "The number is":a 

3@ GOTO 30 


100@ REM Error trapping routine 
1010 IF ERR=6 THEN PRINT "The number is toa long" 
1020 RESUME 


When any error occurs the program automaticlly goes to line 1@@@ where the ERR 

value is compared with 6 and if they are equal (ie ERROR 6 has taken place) the 
message is printed & the program then RESUMEs execution. If there was any error 
other than 6 (overflow), the program would have RESUMEd execution as if nothing 
had happened. In order to force an error to occur in this program, you need to 

enter a number of more than about 8@ digits |! Of course, as your program grows 
bigger and more complex you may need further error messages to be incorporated 

into the ‘Error trapping routine’. 

In the above program, we met yet another new command, RESUME. This command 
tells the computer where to restart the program from after it has dealt with 
the error. There are three forms that RESUME may take and they are :- 

a) RESUME - tells the computer to restart from the same line that caused the 
error. Often this will be result in the error recurring but in the above 
example it does not. 

b) RESUME NEXT — tells the computer to restart from the line following that 
which caused the error (eg. in the above program RESUME NEXT would send 
the computer to line 4@ as it was line 3@ that caused the error). 

Cc) RESUME <line number> — tells the computer to restart from the line number 
which follows the RESUME (eg. RESUME 16@ restarts at line 10). 


So far we have looked at how to work out which error occured and where & how 
to alter an existing error message. However, there is another thing that we can 
do using the various error commands that are provided by BASIC — we can design 
our own errors !!! You may well think that you have enough constraints in BASIC 
without inventing more yourself. Rest assure that these 'home-made' errors are 
meant only to be helpful and not restrictive. In BASIC, the errors from 1 to 30 
are reserved by the Operating System. However all the errors from 31 to 255 are 
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available for our own use. The way to operate your own ‘error messages' is to 
have some instruction that decides whether your own personal error has occured 
and if it has then it should invoke the error using the command, ERROR. (To see 
ERROR in action, just type ERROR 8 and the computer will react exactly as if a 
line really did not exist.) When an error is invoked, it is picked up by an ON 
ERROR GOTO command which immediately sends the computer to the ‘Error trapping 
routine’. Here, the program checks to see if the error that occured matches any 
of the ones that it has been programmed to interpret. As soon as any necessary 
actions have been carried out the program restarts execution at the point which 
you tell it to, using the RESUME command. 

The program listed below is a demonstration of a simple parsing routine. In 
it three error messages are defined (errors 5@-52) and these are executed when 
certain conditions concerning the entering of words are met. 


REM Simple Parser Demo 

ON ERROR GOTO 1050 

PRINT "Please enter your next command." 

INPUT ">>> ", words 

knows="CLIMIUMPPULLPUSHL IFT" 

where=0 

@ word$=LEFTS (UPPERS (words) ) 

IF word$=""" THEN ERROR 50 

IF LEN (word$) >1@ THEN ERROR 31 

100 where=INSTR (knows, words) 

110 IF where=@ THEN ERROR 52 

12@ where=INT (where/4) +1 

130 ON where GOSUB 1000, 1910, 1020, 1030, 104@ 

140 GOTO 3e 

1@0@ PRINT "You start to climb the rope but fall.":RETURN 

1010 PRINT "You try and jump onto the ledge but you can’t reach it.”:RETURN 
1@2@ PRINT "You pull at the rope and it unties itself.":RETURN 

1030 PRINT “You push the rock towards the cliff face.":RETURN 

104@ PRINT "The rock is too heavy to lift. ':RETURN 

1050 REM Error trapping routine 

106@ IF ERR=50 THEN PRINT "I’m afraid that you didn’t enter anything.” 
107@ IF ERR=51 THEN PRINT "I’m very sorry but that word is too long." 
‘1080 IF ERR=52 THEN PRINT "I don’t know that word. Please use another one.” 
1090 RESUME 30 


SSSESES 


838s 


In this program, whenever word$ is empty ERROR 5@ occurs (line 80) and this 
causes the ON ERROR GOTO command (line 2@) to make the computer go to line 105@ 
where the ERR number is checked and the appropriate message is printed before 
execution is returned to the main program at line 3@ (RESUME 30). The other two 
errors (invoked in lines 9@ & 11@) also follow the same path & they too rejoin 
the main program at line 30. That concludes this section on error messages and 
their uses which can be of the greatest assistance whilst programming. 
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A Sorting Routine for use in your PROGRAMS 
by BOB TAYLOR 


The sort routine that is the subject of this article is intended as a module 
to be used in a Machine Code database program. Before embarking on such a list-— 
ing, it is necessary to have decided on the form which the Database will take & 
especially on the way that data will be stored. 

The unit of data is said to be the 'record' (equivalent to a card ina card 
index system) which will contain a number of related details such as the Name, 
Address, Phone No etc. 

In a database, each of these details is stored in a separate ‘field' & these 
will be linked together by the program. Although each record's fields could be 
stored with other like fields. it is more common to have all the fields for one 
record grouped together. Further to this, all the records are usually arranged 
sequentially in the same block of memory. To best utilise the somewhat limited 
memory in the CPC, variable length of fields (and therefore of records too) is 
needed in order to eliminate the unfilled bytes that result from using a system 
of fixed length fields which, of necessity, must be made large enough to cope 
with any eventuality. 

Since the length of a field cannot be predicted, some way is needed to indi- 
cate its start and finish. To acheive this, a byte of low value (which would 
never occur in a field proper) is used at the start of each field; if the bytes 
are identical for the same field in each record then they can also act as field 
indicators. Thus for each record a series of bytes, which start at &@@ for the 
first field, &@1 for the next etc, is utilised as field separators. As can be 
seen the byte value is one less than the field number, with the first separator 
(&0@) doubling as a start of record indicator also. To further assist with rec-— 
ord management, double bytes of &@@ are present both before the first record in 
the list and after the last so far entered. Thus a record starts at a byte of 
&@@ and consists of the required fields with separator bytes between; it ends 
just before the byte of &@@ which starts the following record. 

Since a byte of &20 (32 decimal) represents a space (which may appear in any 
field), the maximum number of fields is limited to 32 (@ to 31), although if it 
is required to use Line Feed and Carriage Return characters (&@A and &@D respe- 
ctively) in a field, the number drops to 1@. 


There many different methods of performing a sort. some faster than others. 
Unusually, the simplest methods do not work out to be the fastest. However, the 
more sophisticated ones require to work on specific records throughout the list 
— since we have elected to use variable length records, the positions of these 
records cannot be predicted and we are forced to go for one of the simpler rou- 
tines usually called ‘bubble sort’ which works on adjacent records. It is given 
its name because records sort of ‘bubble’ to the required position in the list. 
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The version given here has been streamlined to eliminate the usual intermediate 
swapping of records and multiple passes through the list. It works as follows: 
1. Starting with the first two, adjacent records are compared and if in the 

correct sequence, the higher of the pair plus the one above that are then 
compared . 

2. This comparison of pairs is continued either until the top of the list is 
reached when the sort is complete, or until the upper one of a pair should 
actually be lower than it is. 

3. When this latter occurs, this upper record is compared with each of those 
below it either until the bottom of the list is met or until a record is 
found which should not be above the upper one. 

4. At this point, the upper record is sent to a buffer, the block of records 
which it should be below is moved up to where it was and the ‘upper' rec— 
ord is then transferred from the buffer to just below the moved-up block. 

9. The comparison of adjacent pairs is resumed with the highest one moved up 
to take the old upper one's place and the one above that. 

6. At any point reached in the list, all records below those being compared 
will be in the correct order. 

It is possible to sort using any field in the records (eg by Name or Town) by 

loading the sort variable FLDNUM with the number (minus 1) of the field in the 
sequence of fields in the record. Of course sorting one field causes the other 
fields to become unsorted as they are moved about with the record in the sort. 


It is also possible to perform a reverse sort by loading the sort variable 
DIRFLG with anything other than @. A reverse sort is used to put numbers into 
descending order. Whenever it is required to sort numbers, care must be taken 
to pad small numbers with the requisite number of leading spaces — failure to 
do so could lead to a number like 10@@ appearing to be less than 99 because 1 
is less than 9. 

The relative slowness of the bubble sort can be alleviated to some extent by 
performing a sort after each new record is added to the list — a list which is 
nearly in the correct order is quicker to sort. To this end there is usually a 
sorted sequence (eg by Names alphabetically) which is most desirable and which 
will be retained most of the time. Other sequences will be required much less 
frequently. 


After entering and running the Sort Loader program, a Simple demonstration is 
given with a list of ten records, each having three fields, being generated and 
displayed. You will be prompted for a field number (1 to 3) and the list sorted 
and displayed again. This can be repeated as many times as you like. If &A578 
is POKEd with a value other than @, reverse sorts can also be demonstrated on 
re-RUNning from line 21@. As should be seen, even empty fields can be handled; 
they are treated as less than fields containing characters. If no empty fields 
appear as the program is running, try ESCaping and RUN 210 until they do. 
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LISTINIs 


{Fi] 
C20] 
€2B) 
C1iEI 
C4B) 
C98] 


C4] 
C47] 


CEF J 


CA1] 
(C4) 


CCE] 
C22] 


CC7] 
CDAI 


[6B] 
CAC] 
C28] 
C40] 
(541 
C4C] 
CEQ) 
C23] 
CFB) 
(C3) 
[32] 
CE2) 
[29] 
C90] 
{S7] 
CCD) 
C96] 
C11] 


*SORT-LOADER by R Taylor for PRINT-OUT (copyright 1990) 
2@ MEMORY &®8FFF:RESTORE: PRINT: PRINT"Please wait a few seconds" 
30 FOR lin=@ TO &90/8-1:total=@:FOR n=1 TO 8:READ ast 
4Q@ byte=VAL ("&''+as):POKE &AS77+1ink8+n, byte 
2@ total=total+byte:NEXT n 
69 READ aS: IF VAL("&'"'+a$)<>total THEN PRINT:PRINT"Error in line" lLink10+160 
:END 
7@ NEXT lin 
80 PRINT:PRINT"Al1 M/C loaded":PRINT:PRINT"POKE &A577,<Field Number-1>": 
PRINT'POKE &A578,@ (for Normal Sort) or 1 (for Reverse Sort)" 
9@ PRINT:PRINT"Code is located at &A577 and is &8B bytes long with entry 
at &A580" 
10@ ? kk DEMONSTRATION x 
11@ POKE &9000, 0: ADDR=&90@1:FOR r=1 TO 1@:FOR f=@ TO 2:POKE addr, f:addr= 
addr+1:FOR c=1 TO RNDX9:POKE addr, 65+25xRND: addr=addr+1:NEXT c:NEXT f: 
NEXT rsPOKE addr,@:POQKE addr+1,@ 
120 addr=&9001:r=11 
13@ c=PEEK (addr) :addr=addr+1:IF c=@ THEN PRINT:r=r—-i ELSE IF c<1@ THEN 
PRINT,ELSE PRINT CHRS(c)>5 
14@ IF r GOTO 130 
150 PRINT: INPUT"Sort by Field No "sn:IF n<i OR n>3 GOTO 150 ELSE POKE 
&AS577,n-1:CALL &AS8O:GOTO 120 
160 DATA 00,90, 00,00, 00,20, 00,00, 200 
17@ DATA 0@,21,01,90,54,5D,AF,@6, 218 
18@ DATA FF,235,60,B1,BE,C8,2B,22, 493 
190 DATA 7D,A5,EB,3C,32,7F,A5,22, 3Ci 
200 DATA 79,A5,3A,77,A5,ED,Bi,EB, 4FD 
219 DATA 24,7D,A5,ED,B1,3A,78,A5, 441 
220 DATA B7,28,01,EB,1A,FE,20,38, 33B 
25@ DATA 1£,CB,EF,4E,CB,E9,B9,38, 4CB 
240 DATA 16,20,04,23,13,18,ED,2A, 19F 
220 DATA 79,A5,22,7B,A5,2B,AF,BE, 3FB 
260 DATA 28,909,ED,B9,23,18,C5,3A, 3ii 


‘270 DATA 7F,AS,B7,2A,7D,A5,20,AC, 3FS 


280 DATA 23,€5,ED,B1,D1,ED,52,44, 4FA 
290 DATA 4D,19,2B,E5,11,76,A5S,C5, 347 
300 DATA DS,ES,ED,B8,ED,58,7B,A5, SC7 
31® DATA ED,52,44,4D, 19,D1,ED,B8, 45° 
320 DATA £1,C1,ED,B8,E1,2B,ED,B9, SF9 
33Q DATA 23, 18,81, 20,00,00,200,00, @BC 


Over the page there is the disassembly of the machine code that is contained 
in this routine and it shows the workings of the program in greater depth. 
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-dotstt BN 69801 
buftop BQU 84576 


ORG 84577 
.fldnua DEFB &60 
dirflg DEFB &6@ 
.lwrstt DEFS 2 
<bikstt DEFS 2 
-uprstt DEFS 2 
.bovflg DEFS 1 


sort 

ID HL, botstt 
Jnxtup 

ID DK 

1D EL 
TOR A 


CP (HL) 

RET Z 

DEC HL 

ID (uprstt), HL 
EX DEL 

INC & 

saxtdwn 

LD (novilg),A 
LD (lvrstt), HL 
ED A, (fldnua) 
CPIR 

EX ODE, HL 

ID HL, (uprstt) 
CPIR 

ID Ah, (dirflg) 
OR A 

JR Z,axtchr 


EX DE, HL 
saxtchr 

LD A, (DE) 
CP G28 


JRC, chknov 


JRC, chknoy 


JR NZ, setnov 


InC HL 


BUBBLE SORT 


:start of botton record. 
stop byte of buffer. 


sfield number - 1. 

sdirection flag: @=Worsal Sort; (@=Reverse. 
sstart of lover of 2 records being compared. 
istart of block to be noved upwards. 

sstart of upper of 2 records being compared. 
spove flag: 1=no nove; O=Rove required. 


sstart at bottom of records. 


‘DE -> lover record start (LWRSTT) 

;@ to look for start of next record upwards. 
spake BC large enough for all CPIRs etc. 
:HL ~) ist char of lower record. 

sHL -) next record Ist char or Top of 
sRecords byte (£08). 

;Zero if at top of records. 

sfinished if at top of records. 

;HL -) start of next/upper record {UPROTT}. 
;store. 

sHL -) LERSTT. 

:signal ‘no move yet’. 


;store aove flag. 

:store. 

:get field nuaber - 1. 

:HL -) ist char in lover required field. 
DE ~) 6 4" 4 n a 


;HL -) Ist char in upper required field. 
iget direction flag. 

;Zero if Noraal Sort. 

sif Norsal then lover record should be 

; inferior (to upper). 

sothervise Reverse so upper record should be 
vinferior (to lower). 


sget ist/next char from inferior record. 
;field separators have values ¢ 628. 


;if field separator then inferior field has 
yended; ie is less or equal so no Rove. 
sconvert inferior's char to lower case. 

;get Ist next superior record char. 

;convert this to lower case. 

;coapare both record’s chars. 

sif inferior is lesser then don't move this 
slower record, but check vhether others need 
pOVing. 

:if inferior is greater then it will require 
jboving. 

sotherwise if equal then step on - 
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IWC DE 

JR onxtchr 
.setaov 

ID HL, (lwrstt) 
ID (bikstt), HL 
DE HL 


XOR A 
CP (HL) 
JR Z, nove 


CPDR 

INC HL 

JR oaxtdyn 

. chknoy 

LDA, (povtlg) 
OR A 

move 

1D HL, {uprstt) 
OR NZ, nxtup 


LD DE, buftop 
PUSH BC 

PUSH DE 

PUSH HL 

LDR 


WD DE, (blkstt} 
SBC HL, DE 


PROGRAM 


-to next chars of both records. 


sinclude lower record - 

;in those to be noved. 

sstep down to last byte of next lover record 
sor to Start of Records byte (608). 

;0 to look for &88 byte. 


sif Start of Records byte then no aore to 
;check downvards, 

‘otherwise find start of record below. 
sHL -) start of new lower record. 

;to store 6 in nove flag (= nove}. 


szero if nove flag already set. 


;cohlect UPRSTT for NXT UP or HOVE proper. 
iif no nove required. 

sHL -) Ist char of upper record. 

s-) (1) UPRSTT + 1 

sHL -> next higher record start + 1. 
:UPRSTT + 1 (8) 

;HL = UPRLEN (upper record length). 


;BC = UPRLEN. 

sHL -) next higher record start + 1. 

sHL -) next higher record start (NXTSIT). 
i) (1) NXTSIT 

:DE -) buffer top byte. 

37) (2) UPRLEN 

37> (3) BUFTOP 

:7) (4) NXTSTT 

stranster upper record to buffer; HL - 
supper record start (UPRSTT). 

;DE -> start of lowest record to be aoved. 
;HL = BLKLEN (length of block to be moved). 


;BC = BLKLEN. 

;HL -) UPRSIT. 

SWXTSTT (3) 

stransfer block of record(s} upwards to 
scover old upper record; HL -) new BLKSIT 
:(=old BLXSTT + UPRLEX} . 

;BUFTOP (2) 

SUPRLEN (1) 

;transter upper record from buffer to below 
shew BLESTT. 

SNXTSTT (8) 

:HL -> last byte of new upper record. 

;find start of record which has taken the 
splace of the old upper record. 

‘HL -) start of new upper record. 

severy record below this point is sorted so 
;go on to coapare this new upper record with 
;the one above. 


C4B) 


C52) 


C99) 


CDBI 


C60) 
CASI 


C7CI 


C27) 


CAE] 


C86) 


CAP] 


[3A] 


C(F9] 


C80] 


C58) 


C10] 


C133 


CB7) 


CSE] 


Cié] 


CEB) 


CFE} 


C4A) 


CCD] 


CA1) 


£90] 


CAO] 


CEBI 


C6E) 


SEA 
BATTLE 


PROGRAM 


cont. from page |b 


1140 IF cd=O THEN RETURN ELSE IF cd=1 THEN sd&sd+i:FOR a=1 TO 11350:NEXT:IF sd<S THEN 
RETURN ELSE IF sd=S THEN GOSUB 1160 
1150 IF cd=O THEN RETURN ELSE IF cd=1 THEN sm=smti:FOR a=1 TO 1000:NEXT:IF sm<S THEN 
RETURN ELSE IF sm=5 THEN GOSUB 1170 
1160 LOCATE 5,5:PEN 7:PRINT £%;" WIN';:GOSUB 1520:LOCATE 5,8:PEN 8:PRINT'"Press any 


key":GOTO 1180 


1170 LOCATE 5,5:PEN 7:PRINT g$;" WIN";:GOSUB 1520:LOCATE 5,8:PEN 8:PRINT"Press any 


key":GOTO 1180 


1160 kS=INKEYS:IF k$=""THEN 1160:ELSE MODE O:WINDOW 3,17,8,25:PEN 10:GOTO 30 
1190 IF c#="al"AND cd=1 THEN TAG:GOSUB 


—32,-15:PRINT i¢%3: TAGOFF 
1200 IF c$="a2"AND ccHl 
MOVER -31,-16:PRINT i$; 
1210 IF c#="a3"AND cd=1 
MOVER -31,-16:PRINT i; 
1220 IF c#="a4"AND cd=1 
MOVER -31,-16:PRINT i; 
1230 IF c$="a5"AND cd=1 
MOVER -35,-16:PRINT i%;: TAGOFF 


: TAGOFF 


: TAGOFF 


: TAGOFF 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


1240 IF c$="biL"AND cd=1 THEN TAG:GOSUB 


~32,-15:PRINT i$; : TAGOFF 
1250 IF c$="b2"AND cd=1 
MOVER -—31,-16:PRINT if; 
1260 IF c$="b3"AND ccHl 
MOVER -31,-16:PRINT iS; 
1270 IF c$="b4"AND cd=1 
MOVER -31,-16:PRINT iS; 
1260 IF c#="bS"AND cc=1 
MOVER ~-35,-16:PRINT i$; 
1290 IF c$="c1"AND ccK1 
—-32,-15:PRINT i$::TAGOFF 
1300 IF c#="c2"AND cd=i 

MOVER -—31,-16:PRINT i%3;:TAGOFF 
1310 IF c$="cS'"AND cc=1 
MOVER -31,-16:PRINT i; : TAGOFF 
1320 IF c#="c4"AND ccK1 
MOVER —31,-16:PRINT i; : TAGOFF 


: TAGOFF 


: TAGOFF 


: TAGOFF 


: TAGOFF 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG:GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


1330 IF c$="cS"AND cd=1 THEN TAG:GOSUB 


MOVER -35,-16:PRINT i$; : TAGOFF 


1340 IF c$="d1"AND cd=1 THEN TAG:GOSUB 


—32,-15:PRINT i$; :TAGOFF 
1350 IF c#="d2"AND ccHl 
MOVER -31,-16:PRINT is 
1360 IF c$="dS"AND cc=1 
MOVER -—31,-16:PRINT i; 
1370 IF c="d4"AND cd=1 
MOVER -31,-16:PRINT iS; 
1380 IF c#="d5"AND cc=1 
MOVER -35,-16:PRINT i$; 
1390 IF c$="e1"AND cd=1 
—32,-15:PRINT i$;: TAGOFF 


: TAGOFF 


: TAGOFF 


: TAGOFF 


: TAGOFF 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG: GOSUB 


THEN TAG:GOSUB 


THEN TAG:GOSUB 


1400 IF c$="e2"AND cd=1 THEN TAG:GOSUB 


MOVER ~31,-16:PRINT i$; : TAGOFF 


1410 IF c$="e3"AND cd=1 THEN TAG: GOSUB 


MOVER —31,-16:PRINT i%; : TAGOFF 


1420 IF c#="e4"AND cd=1 THEN TAG: GOSUB 


MOVER -31,-16:PRINT is; : TAGOFF 
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1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440: PLOT 


1440:PLOT 


1440; PLOT 


1440: PLOT 


1440; PLOT 


1440:PLOT 


1440: PLOT 


1440: PLOT 


49,193, 10:MOVER 6,0:PRINT 1%; :MOVER 
104,179, 10:MOVE 93,192:PRINT 143: 
144,179, 10:MOVE 134,192:PRINT 1%5: 
169,179, 10:MOVE 174,192:PRINT 1$5:, 
215,179, 10:MOVE 215, 192:PRINT 15: 
49,157, 10:MOVER 6,0:PRINT 1%; :MOVER 
49,157, 10:MOVE 93,158:PRINT 193: 
144,157, 10:MOVE 134,156:PRINT 183: 
169, 157, 10:MOVE 174,158:PRINT 1$;: 
215,157, 10:MOVE 215, 158:PRINT 1$3: 
49,122, 10:MOVER 6,0:PRINT 1%; :MOVER 
104,122, 10:MQVE 93,122:PRINT 13: 
144,122, 10:MOVE 134,122:PRINT 195: 
169, 122, 10:MOVE 174,122:PRINT 195: 
215, 122, 10:MOVE 215, 122:PRINT 1$;: 
49,87, 10:MOVER 6,0:PRINT 1$;:MOVER 
104,87, 10:MOVE 93,87:PRINT 193: 
144,89, 10:MOVE 134,89:PRINT 195: 
169,89, 10:MOVE 174,89:PRINT 195: 
215,89, 10:MOVE 215,89:PRINT 145: 
49,53, 10:MOVER 6,0:PRINT 1$3:MOVER 
104,53, 10:MOVE 93,53:PRINT 195: 
144,53, 10:MOVE 134,53:PRINT 145: 


169,53, 10:MOVE 174,53:PRINT 193: 


CBOI 


COCI 
C74) 


C9874] 
C35] 
COE} 
C4D] 
CF7] 
[FAI 
CA2] 
C11] 
C2AI 
CDCI 
C63] 
(3B) 
C42] 
CE1) 
C92] 
197 
CFiJ 
C8DI 
CC1] 
C6CI 
CFS] 
CCBI 
C7D) 
C9E] 
(DSI 
C58] 
C2C] 


C06] 


C40] 


SEABATTLE 


PROGRAM 


1430 IF c#="eS"AND cd=1 THEN TAG: GOSUB 1440:PLOT 215,53, 10:MOVE 215,53:PRINT 1$3: 


MOVER —35,-16:PRINT i$; : TAGOFF: RETURN 


1440 FOR a=250 TO 2 STEP -5:SOUND 130,a+10, 1, 15:NEXT:RETURN 
1450 FOR 1=1 TO 1 STEP -3:FOR £=800 TO 160 STEP -25:SOUND 1,,1,15,1, 1:NEXT:NEXT: 


1k2, 15,1, 1:NEXT:NEXT: RETURN 
49,193, 10:MOVER 6,0::PRINT o$;: 


104,179, 10:MOQVE 93,192:PRINT o%;: 
144,179, 10:MOVE 134,192:PRINT of;: 


169,179,10:MOVE 174,192:PRINT o%3: 


RETURN 
1460 FOR a=200 TO SO STEP-8:SOUND 130,a+10,5, 15:NEXT: RETURN 

1470 FOR a=1 TO 1000:NEXT: RETURN 

1480 SOUND 1,400:RETURN 

1490 SPEED INK 8,15:LOCATE 12,19:PEN 7:PRINT CHR$(22)+CHR$(1)3:PRINT'X"'s :PEN 1:RETURN 
1500 LOCATE 12, 19:PRINT"xX" :WINDOWH2, 13,16, 19, 19: PAPERH2, 3:RETURN 

1510 LOCATE 12, 19:PRINT"*" : WINDOWH2, 13, 16, 19, 19: PAPER#2, 3: RETURN 

1520 FOR a=1 TO 200:SPEED INK 5,15:SQUND 130,a,10,15:BORDER 26:BORDER 14:NEXT:FOR 1= 
1 TO 1 STEP -3:FOR f=100 TO 10 STEP -1:SOUND 1,f, 

1530 IF c$="ai"AND cd=0 THEN TAG:GOSUB 1450:PLOT 

MOVER -32,-15:PRINT m$;:TAGOFF 

1540 IF c$="a2"AND cd=O THEN TAG:GOSUB 1450:PLOT 

MOVER -31,-16:PRINT m$;:TAGOFF 

1550 IF c$="a3"AND cd=0 THEN TAG:GOSUB 1450:PLOT 

MOVER -31,-16:PRINT m$;:TAGOFF 

1560 IF c$="a4"AND cd=O THEN TAG:GOSUB 1450:PLOT 

MOVER -31,-16:PRINT m3: TAGOFF 

1570 IF c$="a5"AND cd=O THEN TAG:GOSUB 1450:PLOT 


MOVER -35,-16:PRINT m3: TAGOFF 

1560 IF c$="b1"AND cd=O THEN TAG: GOSUB 
—32,-15:PRINT m$3:TAGOFF 

1590 IF c$="b2"AND cd=0O THEN TAG:GOSUB 
MOVER —31,-16:PRINT m$;: TAGOFF 

1600 IF c$="b3"AND cd=0 THEN TAG: GOSUB 
MOVER -—31,-16:PRINT m3: TAGOFF 

1610 IF c#$="b4"AND cd=0 THEN TAG:GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1620 IF c$="bS5"AND cd=O THEN TAG:GOSUB 
MOVER -35,-16:PRINT m3: TAGOFF 

1630 IF c$="c1"AND cd=O THEN TAG:GOSUB 
-32,-15:PRINT m$; :TAGOFF 

1640 IF c#="c2"AND cd=0 THEN TAG: GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1650 IF c$="c3"AND cd=O THEN TAG:GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1660 IF c#$="c4"AND cd=O THEN TAG: GOSUB 
MOVER -31,-146:PRINT m%;: TAGOFF 

1670 IF c$="cS"AND cd=O THEN TAG: GOSUB 
MOVER -35,-16:PRINT m3: TAGOFF 

1680 IF c$="d1"AND cd=O THEN TAG:GOSUB 
-~32,-15:PRINT m5 :TAGOFF 

1690 IF c#$="d2"AND cd=0 THEN TAG:GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1700 IF c$="d3"AND cd=0 THEN TAG:GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1710 IF c$="d4"AND cd=O THEN TAG: GOSUB 
MOVER -31,-16:PRINT m3: TAGOFF 

1720 IF c$="d5"AND cc=O THEN TAG: GOSUB 
MOVER -—35,-16:PRINT m5; : TAGOFF 

1730 IF c#$="el"AND cd=O THEN TAG:GOSUB 
~32,-15:PRINT m3: TAGOFF 

1740 IF c$="e2"AND cd=0 THEN TAG:GOSUB 
MOVER -—31,-16:PRINT m3: TAGOFF 


1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 
1450: PLOT 


1450: PLOT 
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215,179, 10:MOVE 215,192:PRINT of: 
49,157,10:MOVER 6,0:PRINT 0%; MOVER 
49,157,10:MOVE 93,158:PRINT of3: 
144,157,10:MOVE 134,158:PRINT o$3: 
169,157,10:MOVE 174,158:PRINT o$5: 
215, 157,10:MOVE 215, 158:PRINT of}: 
49,122, 10:MOVER 6,0:PRINT o$3 :MOVER 
104,122,10:MOVE 93,122:PRINT of;: 
144,122,10:MOVE 134,122:PRINT of3: 
169,122,10:MOVE 174,122:PRINT 0$3: 
215,122, 10:MOVE 215,122:PRINT of$3: 
49,87, 10:MOVER 6,0:PRINT of; :MOVER 
104,87,10:MOVE 93,87:PRINT of$;: 
144,89,10:MOVE 134,89:PRINT of; : 
169,89, 10:MOVE 174,89:PRINT of: 
215,89,10:MOVE 215,89:PRINT of3: 
49,53,10:MOVER 6,0:PRINT of; :MOVER 


104,53, 10:MOVE 93,53:PRINT of: 


C92) 


C15] 


C63] 


CEB) 


CF2) 


C45] 


CDAI 


CFD] 


C59) 


CF6) 


CFDI 


C1C] 


CDSI 


CA7] 
CEF J 


C4F) 


CBS] 
C1E] 


C473 


£69] 


C35) 


C4B) 


CB7} 


CASI 


C39) 
CF9I 


SEABATTLE PROGRAM 


1750 IF c$="e3"AND cd=O THEN TAG:GOSUB 1450:PLOT 144,53, 10:MOVE 134,53:PRINT 0%}: 
MOVER -31,-16:PRINT m$;:TAGOFF 

1760 IF c$="e4"AND cd=O THEN TAG:GOSUB 1450:PLOT 169,53, 10:MOVE 174,53:PRINT o$;: 
MOVER -31,-16:PRINT m$;: TAGOFF 

1770 IF c$="e5"AND cd=O THEN TAG:GOSUB 1450:PLOT 215,53, 10:MOVE 215,53:PRINT o%;: 
MOVER -35,-16:PRINT m$;:TAGOFF: RETURN 

1780 IF c$="al"OR cH="a2"0R c$="aS"OR c$="a4"OR c$="a5"OR CH="b1"OR cH$="b2"OR cH= 
"b3"OR c$="b4"OR cH$="bS"OR cH="C1"OR c$="CZ"OR C$="C3"THEN ic=1: RETURN: ELSE 

1790 IF c$="C4"0R c$="C5"OR cH="d1"OR c$="d2"0R cH="d3"OR cH="d4"OR cH="dS"OR cH= 
"e1"OR c$="e2"OR cH="e3"OR c$="e4"OR c$="e5S" THEN ic=1 :RETURN ELSE ic=0:GOSUB 1460: 
RETURN | 

1800 SOUND 1,0,150,15,1,,31:SQUND 4,0, 40, 15,0,0, 2: RETURN 

1810 DEFINT a-z:cd=1:MODE O:BORDER O:GOSUB 720:CLS:GOSUB 790:WINDOWH2, 1,20,12,25: 
PAPER#2, 14:CLSH2: PEN#2,5:LOCATE#2, 4,5:PRINT#H2,"k GSEABATTLE *":PAPER O 

1820 LOCATEH2,9,8:PRINTH2, "By" :LOCATE#2, 3, 11:PRINTH2,"G.Messina @ 1987":TAG:GOSUB 80 
0:GOSUB 1070:GOSUB 1000:RETURN 

1830 SYMBOL 240,0,0,0,0, 17,8, 102, 255:SYMBOL. 241,1,0,0,4, 77, 159, 252, 223: SYMBOL 242,64 
, 128, 128, 128, 129, 194, 234, 255 

1640 SYMBOL 243,0,0,0,0,4,8,48, 120:SYMBOL 244, 1,255, 127,63,31,15,7,3:SYMBOL 245,223, 
255, 255,215, 255, 255, 255, 255 

1850 SYMBOL 246, 255, 255, 255, 255, 255, 255, 255, 255:SYMBOL 247, 255, 255, 255, 253, 255, 255, 
255, 255:SYMBOL 248, 239, 254, 252, 220, 248, 240, 224,192 

1860 SYMBOL 249,42, 126,255, 126,58, 24, 16,0:SYMBOL 250,0,0,0, 28, 62, 127, 127, 127: SYMBOL 
251,127,127, 127,62, 28,0,0,0 

1870 SYMBOL 252, 0,60, 126, 255, 255, 127,62, 28:SYMBOL. 253, 2, 32, 141,30, 63, 31, 78,5: SYMBOL. 
254,0,99,99, 99,54, 54, 28, 28 

1880 SYMBOL 255, 28, 28,54,54,99,99,99,0 

1890 s$=CHR$ (249) : t$=CHRS (23) +CHRS (1) :US=CHRS (23) +CHRS (0) 1 28=CHRS (22) +CHRE (1) 2 xG= 
CHRS (22) +CHRS (O) 1 g$=CHRS (138) +CHRS (138) :eS=CHRS (253) : p$=CHRS (231) 

1900 h$=CHRS (240) +CHRS (241) +CHR$ (242) +CHRS (243) : 1S=CHRS (250) 1 1S=CHRS (251) ro$=CHRE 
(254) smS=CHRS (255) : J$=CHRS (111) 

1910 v$=CHR¢ (244) +CHRS (245) +CHRS (246) +CHRS (247) +CHRS (248) 

1920 DATA 1,10, 160,33, 21, 160, 205, 209, 188, 201, 25, 160, 195, 38, 160, 195, 199, 140, 195, 205, 
160, 0,0, 10, 160,83, 73, 78, 203,83 

1930 DATA 67,82, 177,83, 67,82, 178, 0, 195, 163, 160, 213,47, 93, 124,214, 54, 87, 125,214, 80, 
111,48, 10, 124,37, 230,7,32,4 

1940 DATA 124, 198,8, 103, 229, 124, 18, 28, 32, 11,20, 122, 230, 7, 32,5, 122, 205, 211, 140,87, 44, 
32, 11,36, 124, 230,7,32,5 

1950 DATA 124,205,211, 160, 103, 16,224, 225, 209, 213, 229, 75, 229, 4, 7,93, 84, 124, 205,211, 
160, 103, 126, 18, 16, 245, 225, 44, 32, 11 

1940 DATA 364, 124,230, 7,32,5, 124, 205, 211, 160, 103, 13, 32, 224, 225, 209, 21, 32, 158, 124,214, 
56,103, 67,54,0, 44,32, 11,36 

1970 DATA 124,230,7,32,5, 124,205,211, 160, 103, 16, 238, 201, 221,110,0, 221,102, 6, 45,37, 
221, 126,4, 148, 79, 125, 198, 2, 221 

1980 DATA 150, 2,87, 205, 26, 188, 124, 198,54, 103, 175, 129, 16, 253, 95, 24, 158, 24, 98, 62, 192, 
205, 8, 188, 201,42, 64, 205, 8, 188 

1990 DATA 201,214,8,201,end 

2000 READ a$:IF a$="end" THEN CALL 40960:RETURN:ELSE POKE add, VAL (a%) :add=add+1:GOTO 
2000 
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4 the Flags 
Conditianal Jumps and 


Machine Code 


It is very important in Machine Code, as it is in BASIC, to be able to make 
decisions within a program. In BASIC, the main decision making command is IF... 
THEN...ELSE (see this issue's Beginner's BASIC), & this is relatively simple to 
use and is extremely versatile. In Machine Code, however, we do not have such a 
universal and easy command available to us. Instead we have to use three things 
in conjunction and they are conditional jumps, comparing and the FLAG REGISTER. 
The first two are M/C instructions for use in programs whilst the third is the 
actual means of making decisions, and this is the first thing that we will look 
at. 


THE FLAG REGISTER — Before looking at the Flag Register it will be necessary to 
remind ourselves of one or two facts concerning registers in general. There are 
several registers available for use in M/C (eq B.C,D.E,H,L) & these are general 
purpose registers in which we can store. or load, information. These registers 

can be used to hold any 8-bit number for any reason (but there are some conven- 
tions by which certain registers hold certain values) & they can be grouped to- 
gether in register pairs (eg. BC.DE.HL). Each of these register pairs can hold 

a 16-bit number & can be used in instructions as register pairs. An 8-bit numb— 
er is a binary number which has 8 digits (for a full explanation see Issue One 

— ‘What is my Amstrad?') & an example is the number 11@10@1@ which can also be 

represented by 21@ (decimal) or even D2 (hexadecimal). The means of conversion 

is unimportant but the thing to remember is that each Binary digIT can only be 

either a 1 ora @ (ie. on or off). As well as these general registers there are 
several specific ones which have a special use, one example is the accumulator 

(A) register which is mainly used in arithmetic and which we have already met. 

The Flag (F) register is another specific register and its use is to give inf-— 

ormation about the result of the last executed instruction. Together the A and 

F registers can also form a ‘register pair' (AF) and are both 8-bit registers. 

However. AF has no specific purpose and is not used to allow a 16-bit number to 
be stored. Some instructions (eg. PUSH and POP which we haven't discussed yet) 

need to operate on a register pair and this is where AF is used. Normally, with 
an ordinary register, it is the value as a whole that is used. However with the 
Flag register, it is more important to know which bits are set (ie. equal to 1) 
or reset (ie. equal to @). The reason for this is that each of the bits in the 

Flag register tells us something about the result of the previous command to be 
executed. In fact. two of the 8 bits in the Flag register are not used but the 

others signify the following :-— 
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Bit 7 6 5 4 3 2 1 8 


Signifies S$ 2 - H - PV N C 
S = SIGN Flag P/V =  PARITY/OVERFLOW Flag 
Z = ZERO Flag N =  ADD/SUBTRACT Flag 
H =  HALF-CARRY Flag c = CARRY Flag 


= unused bits 


} 
I 


The ‘half-carry' and ‘add/subtract' flags cannot be tested and so we'll ignore 
them and 'parity/overflow' is also rather tricky and uncommon so we'll leave it 
until a later issue. That leaves the ‘sign', ‘zero' and ‘carry' flags which are 
all explained below :- 


THE SIGN FLAG is set (made equal) to one if the result of the last instruction 
was negative. If the result was not negative, this flag would be reset to zero. 
Therefore after the following instructions, the Sign Flag would be set to 1 :- 
LD A, 201 >; A= 201 
SUB 232 ; A now equals —31 and the SIGN FLAG is set to 1 


THE ZERO FLAG is set to one if the result of the previous instruction was equal 
to zero. Any other result would reset this flag to zero. After these two instr— 
uctions, the zero flag would be set to 1 :- 

LD A,-2@1 >: A = —2@1 

ADD A, 201 ; A now equals @ and the ZERO FLAG is set to 1 


THE CARRY FLAG is set to one if a ‘carry' occurs in addition or if a number is 
‘borrowed’ in subtraction. Both of the sets of instructions below will cause the 
carry flag ti be set to 1 :- 
(i) LD A,6@ ; A= 6@ 
ADD A,230 ; A = 298, cannot be stored in a single register 
; So A = 290-256=34 and the CARRY FLAG is set 


(ii) LD A,60 ; A= 68 
SUB A,23@ ; A = -170, cannot be stored as an 8-bit number 
; because of something known as 2's complement 
; so A = -1704+256=86 and the CARRY FLAG is set 


The reason for this can be seen if we print the sums in their binary form :— 


(i) @201111020 = 6@ (decimal) 
+ 111001180 = 230 (decimal) 
{11 02801009010 = 34 (decimal) 


Cannot be held in an 8—bit number so this sets 
the CARRY Flag and is then discarded. 
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(ii) {17 @@11119086 = 60 (decimal) 
-~ 111001180 = 23@ (decimal) 
Se ee 
@1i1i0101180 = 86 (decimal) 


Has to be borrowed from outside the 8-bit number and so it 
sets the CARRY Flag and is then ignored. 


CONDITIONAL JUMPS 


These are Machine Code's equivalents to the BASIC IF...THEN...ELSE command but 
are greatly limited. The main reason for this is that they can only test & act 
on the flags (2 of which cannot be tested). However, these problems can be got 
round by careful programming. We've already met the command JP (JumP) before & 
this was an example of an unconditional jump. JumP also has a conditional form 
which is used in much the same way. Following the acutal JP command there is a 
letter (or couple of letters) which stands for the various flags there is also 
a form which jumps when a flag is NOT set. The jumps that we will look at are:— 


JP Z,zero - jump if the ZERO flag is set (the result was zero) 

JP NZ,notzero - jump if the ZERO flag is not set (the result was not @) 

JP M,minus — jump if the SIGN flag is set (the result was negative) 

JP P,pos - jump if the SIGN flag is not set (the result was positive) 

JP C,carry - Jump if the CARRY flag is set (the previous calculation 
produced a ‘carry' or a ‘borrow') 

JP NC,nocarry - jump if the CARRY flag is not set (the previous sum did 


not produce a 'carry' or a ‘borrow’') 


There are also two more conditional jumps (JP PO, label and JP PE, label) and 

they refer to the P/V flag which we are not going to discuss in this issue. We 
have briefly mentioned another jump command called JR (Jump Relative) which is 
used only for small jumps. JR can only act on four conditions and they are :- 


JR Z,zero —- see above 
JR NZ,notzero - see above 
JR C, carry - see above 
JR NC,nocarry —- see above 


For the sake of completeness it is worth mentioning conditional returns (RET) 
and CALL commands which can both use all the conditions that JP can :— 


RET Z CALL Z,zero RET NZ CALL NZ,notzero 
RET M CALL M,minus RET P CALL P, positive 
RET C CALL C,carry RET NC RET NC. nocarry 
RET PO CALL PO, label RET PE RET PE, label 
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COMPARE (CP) 


There will be times when you want to make a decision without actually changing 
any of the registers except the Flag. An example of this would be if you wanted 
to see if A held a particular value and if it did, the program should jump toa 
certain address but otherwise the value in A should be printed. It's obvious in 
this example, that there's no use in changing the value of A if you may need to 
use it again later and this is where the compare (CP) instruction comes in use— 
ful. CP actually subtracts the value following it from the accumulator and then 
sets the flags according to the result, without storing the result anywhere or 
altering the accumulator. To end this section on flags and conditions here is a 
program which asks a question, gets the user's reply and then makes a decision 
based on that input. 


org &4000 

ld a,2 ;A=2 

call &bc@e ; set mode to mode 2 

ld hl,text : HL now holds the address at which the text is stored 
call print ; call the printing routine 

call &bb@6 : get the user to press a key and store its value inA 
cp 121 ; compare the value in A with 121 = 'Y' (ie. set flags 


call z,clear 
cp 89 


call z2,clear 
ret 


; aS if 121 had been subtracted from the value in A) 
; and jump to .clear if the zero flag is set 

; compare the value in A with 89 = 'y' (ie. set flaqs 
; as if 89 had been subtracted from the value in A) 

; and jump to .clear if the zero flag is set 

; return to BASIC 


.clear 
ld a,2 ;A=2 
call &bc@e ; set mode to mode 2 
ret : return from subroutine 
.print 
ld a, (hl) ; A holds the contents of the address point to by HL 
cp @ ; compare the value in A with @ (ie subtract @ from A) 
ret z ; and return if the zero flag is set 
call &bbda ; print the character inA 
inc hl ; HL = HL +1 
jp print ; Jump to the label .print 
. text 


db "Do you want me to clear the screen (y/n)",@ 


Although this is a very simple and short example of how conditional jumps and 
flags work, I hope that this has shown you that it is possible to make all the 
decisions that you need to in M/C with a little effort and skill. In Issue Five 
we'll look at some more conditional jumps of greater complexity and their uses. 
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Offers 


Please make all cheques payable 
to Print—Out but any postal orders 
should be made out to T J Defoe as 
this saves the Post Office a great 
deal of time and effort. Unless it 
cannot be avoided, it is advisable 
not to send cash through the post. 
All orders should be sent to :— PRINT-OUT, Special Offers, 8 Maze Green Road, 

Bishop's Stortford, Hertfordshire CM23 2PJ. 


Issue 5 


If you wish to order a copy of Issue Five in advance, you may do so by sending 
a cheque / postal order for £1.10 (or 70p + an A4 SAE with a 28p stamp) to the 
usual address. We hope to have it published by about the 30th May & as soon as 
it is printed it will be forwarded to you. 


Program tapes and_discs 


We now supply both program tapes and discs for ALL issues and the prices given 
below also include a booklet to explain how the programs work plus postage and 
packing. Tapes and discs are available for Issues One, Two, Three and Four. 
The cost for a program tape is as follows :- 
a) A blank tape (at least 15 minutes) and 50p (ptp) 
or b) £1.00 (which also includes the price of a tape) 
The cost for a program disc is :-— 
a) A blank formatted disc and 50p (ptp) 
or b) £3.00 (which also includes the cost of a MAXELL/AMSOFT disc) * 


* When ordering using this particular method, please allow about 14 days for 
delivery as we must rely on outside suppliers for the discs. 


Back issues 


We still have some copies of Issues One, Two and Three available and the price 
is £1.10 which includes postage and packing. Alternatively, you can order both 
a back issue and its corresponding tape or disc by sending :- 
a) £1.75 -— includes the tape, the required issue and postage and packing 
b) £3.75 - includes the disc (genuine MAXELL/AMSOFT disc) & the required 
issue and postage and packing. 


AO 


